Let us set some global options for all code chunks in this document.

knitr::opts_chunk$set(
  message = FALSE,    # Disable messages printed by R code chunks
  warning = FALSE,    # Disable warnings printed by R code chunks
  echo = TRUE,        # Show R code within code chunks in output
  include = TRUE,     # Include both R code and its results in output
  eval = TRUE,       # Evaluate R code chunks
  cache = FALSE,       # Enable caching of R code chunks for faster rendering
  fig.align = "center",
  out.width = "100%",
  retina = 2,
  error = TRUE,
  collapse = TRUE
)
rm(list = ls())
set.seed(1982)

1 Preprocessing

Let us now load some required libraries.

# Load required libraries

# inla.upgrade(testing = TRUE)
# remotes::install_github("inlabru-org/inlabru", ref = "devel")
# remotes::install_github("davidbolin/rspde", ref = "devel")
# remotes::install_github("davidbolin/metricgraph", ref = "devel")
# remotes::install_github("davidbolin/ngme2", ref = "devel")

library(INLA)
#inla.setOption(num.threads = 7)
library(inlabru)
library(rSPDE)
library(MetricGraph)
library(ngme2)

library(plotly)
library(dplyr)

library(sf)

library(here)

Function standarize() below is later used to standardize the covariate SpeedLimit.

standardize <- function(x) {return((x - mean(x)) / sd(x))}

To keep track of the changes, we provide summaries of every new created object. Those summaries can be accessed by pressing the Show buttons below


We load the graph object sf_graph (which only contains weights) and the data (already graph-processed).

load(here("Graph_objects/graph_construction_19MAY24_FRC0134.RData"))
load(here("Data_files/data_day7142128_hour13_with_no_consecutive_zeros_19MAY24_FRC0134_graph_processed.RData"))
data_on_graph = data_on_graph %>% 
  dplyr::select(-datetime)

We check the units of the graph.

sf_graph$get_edge_lengths() %>% head() %>% capture.output() %>% grep("^Units:", ., value = TRUE)
## [1] "Units: [km]"
summary(sf_graph)
## A metric graph object with:
## 
## Vertices:
##   Total: 8781 
##   Degree 1: 15;  Degree 2: 6409;  Degree 3: 343;  Degree 4: 1842;  Degree 5: 58; 
##   Degree 6: 111;  Degree 7: 2;  Degree 8: 1; 
##   With incompatible directions:  0 
## 
## Edges: 
##   Total: 11104 
##   Lengths: 
##       Min: 0.00283468  ; Max: 1.480513  ; Total: 505.6148 
##   Weights: 
##       Columns: Length FRC SpeedLimit StreetName harmonicAverageSpeed medianSpeed averageSpeed sampleSize averageTravelTime medianTravelTime travelTimeRatio List_Number 5percentile 10percentile 15percentile 20percentile 25percentile 30percentile 35percentile 40percentile 45percentile 50percentile 55percentile 60percentile 65percentile 70percentile 75percentile 80percentile 85percentile 90percentile 95percentile road_type class_4 class_0 class_3 class_1 upto1 upto3 upto4 density density_per_hour 
##   That are circles:  0 
## 
## Graph units: 
##   Vertices unit:  degrees  ; Lengths unit:  km 
## 
## Longitude and Latitude coordinates:  TRUE
##   Which spatial package:  sf 
##   CRS:  EPSG:4326
## 
## Some characteristics of the graph:
##   Connected: TRUE
##   Has loops: FALSE
##   Has multiple edges: TRUE
##   Is a tree: FALSE
##   Distance consistent: FALSE
##   Has Euclidean edges: FALSE
## 
## Computed quantities inside the graph: 
##   Laplacian:  FALSE  ; Geodesic distances:  TRUE 
##   Resistance distances:  FALSE  ; Finite element matrices:  FALSE 
## 
## Mesh: The graph has no mesh! 
## 
## Data: The graph has no data!
## 
## Tolerances: 
##   vertex-vertex:  0.001 
##   vertex-edge:  0.001 
##   edge-edge:  0
summary(data_on_graph)
##        ID           speed              day       .distance_to_graph
##  Min.   :5701   Min.   :  0.000   Min.   :1.00   Min.   :0.000000  
##  1st Qu.:6592   1st Qu.:  1.609   1st Qu.:2.00   1st Qu.:0.001832  
##  Median :6712   Median : 17.703   Median :3.00   Median :0.004032  
##  Mean   :7378   Mean   : 20.107   Mean   :2.55   Mean   :0.004937  
##  3rd Qu.:8739   3rd Qu.: 30.577   3rd Qu.:4.00   3rd Qu.:0.006952  
##  Max.   :8969   Max.   :114.263   Max.   :4.00   Max.   :0.019993  
##   .edge_number   .distance_on_edge    .group             .coord_x     
##  Min.   :    1   Min.   :0.0000    Length:75899       Min.   :-122.5  
##  1st Qu.: 2347   1st Qu.:0.2586    Class :character   1st Qu.:-122.4  
##  Median : 4733   Median :0.5133    Mode  :character   Median :-122.4  
##  Mean   : 4968   Mean   :0.5067                       Mean   :-122.4  
##  3rd Qu.: 7639   3rd Qu.:0.7609                       3rd Qu.:-122.4  
##  Max.   :11104   Max.   :1.0000                       Max.   :-122.4  
##     .coord_y    
##  Min.   :37.70  
##  1st Qu.:37.74  
##  Median :37.77  
##  Mean   :37.76  
##  3rd Qu.:37.78  
##  Max.   :37.81

The following commands remove zero speed observations that are 1m away from the graph, and after that, they remove any speed observations that are 3m away from the graph.

to_remove = data_on_graph %>%
  filter(speed == 0, .distance_to_graph > 0.001) 

data_on_graph = setdiff(data_on_graph, to_remove) %>% 
  filter(.distance_to_graph <= 0.003)
summary(to_remove)
##        ID           speed        day        .distance_to_graph  .edge_number  
##  Min.   :5701   Min.   :0   Min.   :1.000   Min.   :0.001000   Min.   :    1  
##  1st Qu.:6588   1st Qu.:0   1st Qu.:2.000   1st Qu.:0.003133   1st Qu.: 2390  
##  Median :6702   Median :0   Median :3.000   Median :0.005536   Median : 4646  
##  Mean   :7312   Mean   :0   Mean   :2.556   Mean   :0.006552   Mean   : 4912  
##  3rd Qu.:8713   3rd Qu.:0   3rd Qu.:4.000   3rd Qu.:0.008880   3rd Qu.: 7550  
##  Max.   :8969   Max.   :0   Max.   :4.000   Max.   :0.019988   Max.   :11096  
##  .distance_on_edge    .group             .coord_x         .coord_y    
##  Min.   :0.0000    Length:15402       Min.   :-122.5   Min.   :37.70  
##  1st Qu.:0.2888    Class :character   1st Qu.:-122.4   1st Qu.:37.74  
##  Median :0.5322    Mode  :character   Median :-122.4   Median :37.77  
##  Mean   :0.5156                       Mean   :-122.4   Mean   :37.76  
##  3rd Qu.:0.7568                       3rd Qu.:-122.4   3rd Qu.:37.78  
##  Max.   :1.0000                       Max.   :-122.4   Max.   :37.81
summary(data_on_graph)
##        ID           speed             day        .distance_to_graph 
##  Min.   :5701   Min.   :  0.00   Min.   :1.000   Min.   :0.0000000  
##  1st Qu.:6589   1st Qu.: 12.87   1st Qu.:2.000   1st Qu.:0.0005897  
##  Median :6728   Median : 24.14   Median :3.000   Median :0.0012698  
##  Mean   :7485   Mean   : 25.98   Mean   :2.542   Mean   :0.0013554  
##  3rd Qu.:8769   3rd Qu.: 35.41   3rd Qu.:4.000   3rd Qu.:0.0020959  
##  Max.   :8969   Max.   :114.26   Max.   :4.000   Max.   :0.0029999  
##   .edge_number   .distance_on_edge    .group             .coord_x     
##  Min.   :    1   Min.   :0.0000    Length:25843       Min.   :-122.5  
##  1st Qu.: 2078   1st Qu.:0.2631    Class :character   1st Qu.:-122.5  
##  Median : 4558   Median :0.5218    Mode  :character   Median :-122.4  
##  Mean   : 4839   Mean   :0.5137                       Mean   :-122.4  
##  3rd Qu.: 7548   3rd Qu.:0.7700                       3rd Qu.:-122.4  
##  Max.   :11104   Max.   :0.9998                       Max.   :-122.4  
##     .coord_y    
##  Min.   :37.70  
##  1st Qu.:37.74  
##  Median :37.76  
##  Mean   :37.76  
##  3rd Qu.:37.78  
##  Max.   :37.81

We add data to the graph.

sf_graph$add_observations(data = data_on_graph, 
                          group = "day", 
                          normalized = TRUE, 
                          clear_obs = TRUE)
sf_graph$get_data()
## # A tibble: 25,842 × 9
##       ID speed   day .distance_to_graph .coord_x .coord_y .edge_number
##    <int> <dbl> <dbl>              <dbl>    <dbl>    <dbl>        <dbl>
##  1  8969  99.8     1           0.000426    -122.     37.7            2
##  2  6588  91.7     1           0.00206     -122.     37.7            2
##  3  8848  99.8     1           0.00256     -122.     37.7            2
##  4  6677  14.5     1           0.000436    -122.     37.8            3
##  5  6532  16.1     1           0.00226     -122.     37.8            3
##  6  6686  25.7     1           0.000499    -122.     37.8            3
##  7  6570  17.7     1           0.00252     -122.     37.8            5
##  8  6677  29.0     1           0.00222     -122.     37.8            6
##  9  6657  24.1     1           0.00203     -122.     37.8            6
## 10  6576  17.7     1           0.000274    -122.     37.8            6
## # ℹ 25,832 more rows
## # ℹ 2 more variables: .distance_on_edge <dbl>, .group <chr>
summary(sf_graph)
## A metric graph object with:
## 
## Vertices:
##   Total: 8781 
##   Degree 1: 15;  Degree 2: 6409;  Degree 3: 343;  Degree 4: 1842;  Degree 5: 58; 
##   Degree 6: 111;  Degree 7: 2;  Degree 8: 1; 
##   With incompatible directions:  0 
## 
## Edges: 
##   Total: 11104 
##   Lengths: 
##       Min: 0.00283468  ; Max: 1.480513  ; Total: 505.6148 
##   Weights: 
##       Columns: Length FRC SpeedLimit StreetName harmonicAverageSpeed medianSpeed averageSpeed sampleSize averageTravelTime medianTravelTime travelTimeRatio List_Number 5percentile 10percentile 15percentile 20percentile 25percentile 30percentile 35percentile 40percentile 45percentile 50percentile 55percentile 60percentile 65percentile 70percentile 75percentile 80percentile 85percentile 90percentile 95percentile road_type class_4 class_0 class_3 class_1 upto1 upto3 upto4 density density_per_hour 
##   That are circles:  0 
## 
## Graph units: 
##   Vertices unit:  degrees  ; Lengths unit:  km 
## 
## Longitude and Latitude coordinates:  TRUE
##   Which spatial package:  sf 
##   CRS:  EPSG:4326
## 
## Some characteristics of the graph:
##   Connected: TRUE
##   Has loops: FALSE
##   Has multiple edges: TRUE
##   Is a tree: FALSE
##   Distance consistent: FALSE
##   Has Euclidean edges: FALSE
## 
## Computed quantities inside the graph: 
##   Laplacian:  FALSE  ; Geodesic distances:  TRUE 
##   Resistance distances:  FALSE  ; Finite element matrices:  FALSE 
## 
## Mesh: The graph has no mesh! 
## 
## Data: 
##   Columns:  ID speed day 
##   Groups:  .group 
## 
## Tolerances: 
##   vertex-vertex:  0.001 
##   vertex-edge:  0.001 
##   edge-edge:  0

We get the values of the weights at data locations. This essentially gives us covariates from the weights.

sf_graph$edgeweight_to_data(data_loc = TRUE)
sf_graph$get_data()
## # A tibble: 101,616 × 50
##       ID speed   day .distance_to_graph Length FRC   SpeedLimit StreetName
##    <int> <dbl> <dbl>              <dbl>  <dbl> <chr>      <dbl> <chr>     
##  1    NA  NA      NA          NA        0.0826 4             40 16th St   
##  2    NA  NA      NA          NA        0.0826 4             40 16th St   
##  3    NA  NA      NA          NA        0.0826 4             40 16th St   
##  4    NA  NA      NA          NA        0.0826 4             40 16th St   
##  5  8969  99.8     1           0.000426 0.137  0            105 I-280 N   
##  6  6588  91.7     1           0.00206  0.137  0            105 I-280 N   
##  7  8848  99.8     1           0.00256  0.137  0            105 I-280 N   
##  8    NA  NA      NA          NA        0.137  0            105 I-280 N   
##  9    NA  NA      NA          NA        0.137  0            105 I-280 N   
## 10    NA  NA      NA          NA        0.137  0            105 I-280 N   
## # ℹ 101,606 more rows
## # ℹ 42 more variables: harmonicAverageSpeed <dbl>, medianSpeed <dbl>,
## #   averageSpeed <dbl>, sampleSize <int>, averageTravelTime <dbl>,
## #   medianTravelTime <dbl>, travelTimeRatio <dbl>, List_Number <int>,
## #   `5percentile` <int>, `10percentile` <int>, `15percentile` <int>,
## #   `20percentile` <int>, `25percentile` <int>, `30percentile` <int>,
## #   `35percentile` <int>, `40percentile` <int>, `45percentile` <int>, …
summary(sf_graph)
## A metric graph object with:
## 
## Vertices:
##   Total: 8781 
##   Degree 1: 15;  Degree 2: 6409;  Degree 3: 343;  Degree 4: 1842;  Degree 5: 58; 
##   Degree 6: 111;  Degree 7: 2;  Degree 8: 1; 
##   With incompatible directions:  0 
## 
## Edges: 
##   Total: 11104 
##   Lengths: 
##       Min: 0.00283468  ; Max: 1.480513  ; Total: 505.6148 
##   Weights: 
##       Columns: Length FRC SpeedLimit StreetName harmonicAverageSpeed medianSpeed averageSpeed sampleSize averageTravelTime medianTravelTime travelTimeRatio List_Number 5percentile 10percentile 15percentile 20percentile 25percentile 30percentile 35percentile 40percentile 45percentile 50percentile 55percentile 60percentile 65percentile 70percentile 75percentile 80percentile 85percentile 90percentile 95percentile road_type class_4 class_0 class_3 class_1 upto1 upto3 upto4 density density_per_hour 
##   That are circles:  0 
## 
## Graph units: 
##   Vertices unit:  degrees  ; Lengths unit:  km 
## 
## Longitude and Latitude coordinates:  TRUE
##   Which spatial package:  sf 
##   CRS:  EPSG:4326
## 
## Some characteristics of the graph:
##   Connected: TRUE
##   Has loops: FALSE
##   Has multiple edges: TRUE
##   Is a tree: FALSE
##   Distance consistent: FALSE
##   Has Euclidean edges: FALSE
## 
## Computed quantities inside the graph: 
##   Laplacian:  FALSE  ; Geodesic distances:  TRUE 
##   Resistance distances:  FALSE  ; Finite element matrices:  FALSE 
## 
## Mesh: The graph has no mesh! 
## 
## Data: 
##   Columns:  ID speed day Length FRC SpeedLimit StreetName harmonicAverageSpeed medianSpeed averageSpeed sampleSize averageTravelTime medianTravelTime travelTimeRatio List_Number 5percentile 10percentile 15percentile 20percentile 25percentile 30percentile 35percentile 40percentile 45percentile 50percentile 55percentile 60percentile 65percentile 70percentile 75percentile 80percentile 85percentile 90percentile 95percentile road_type class_4 class_0 class_3 class_1 upto1 upto3 upto4 density density_per_hour 
##   Groups:  .group 
## 
## Tolerances: 
##   vertex-vertex:  0.001 
##   vertex-edge:  0.001 
##   edge-edge:  0

When running sf_graph$edgeweight_to_data(data_loc = TRUE), some NA values are created (because the data is grouped). We remove them below. We also standardize the SpeedLimit covariate.

data = sf_graph$get_data() %>% 
  drop_na(-StreetName) %>% # this drops all rows with at least one NA value but without taking into account StreetName
  mutate(across(c("SpeedLimit"), ~standardize(.))) %>%
  dplyr::select(speed, SpeedLimit)

The code of chunk below was executed only one time.


{r, eval = FALSE}
aux = data |>
  rename(distance_on_edge = .distance_on_edge, edge_number = .edge_number) |>
  as.data.frame() |>
  dplyr::select(edge_number, distance_on_edge, .group)

distmatrixlist = list()

for (i in 1:4) {
  distmatrixlist[[i]] = sf_graph$compute_geodist_PtE(PtE = aux %>% 
                                                       filter(.group == as.character(i)) %>% 
                                                       dplyr::select(-.group),
                                                     normalized = TRUE,
                                                     include_vertices = FALSE)
}


save(distmatrixlist, file = here("Models_output/distmatrixfixed_19May24.RData"))

The code of chunk above was executed only one time.


summary(data)
##      speed          SpeedLimit         .group           .edge_number  
##  Min.   :  0.00   Min.   :-2.0263   Length:25842       Min.   :    1  
##  1st Qu.: 12.87   1st Qu.:-0.4784   Class :character   1st Qu.: 2078  
##  Median : 24.14   Median :-0.4784   Mode  :character   Median : 4558  
##  Mean   : 25.98   Mean   : 0.0000                      Mean   : 4839  
##  3rd Qu.: 35.41   3rd Qu.: 0.0844                      3rd Qu.: 7548  
##  Max.   :114.26   Max.   : 4.0947                      Max.   :11104  
##  .distance_on_edge    .coord_x         .coord_y    
##  Min.   :0.0000    Min.   :-122.5   Min.   :37.70  
##  1st Qu.:0.2631    1st Qu.:-122.5   1st Qu.:37.74  
##  Median :0.5218    Median :-122.4   Median :37.76  
##  Mean   :0.5137    Mean   :-122.4   Mean   :37.76  
##  3rd Qu.:0.7700    3rd Qu.:-122.4   3rd Qu.:37.78  
##  Max.   :0.9998    Max.   :-122.4   Max.   :37.81

We add the data again but now with the new standardized SpeedLimit covariate.

sf_graph$add_observations(data = data, 
                          group = "day", 
                          normalized = TRUE, 
                          clear_obs = TRUE)
sf_graph$get_data()
## # A tibble: 25,842 × 7
##    speed SpeedLimit .coord_x .coord_y .edge_number .distance_on_edge .group
##    <dbl>      <dbl>    <dbl>    <dbl>        <dbl>             <dbl> <chr> 
##  1  99.8       4.09    -122.     37.7            2            0.195  1     
##  2  91.7       4.09    -122.     37.7            2            0.227  1     
##  3  99.8       4.09    -122.     37.7            2            0.363  1     
##  4  14.5      -1.04    -122.     37.8            3            0.309  1     
##  5  16.1      -1.04    -122.     37.8            3            0.583  1     
##  6  25.7      -1.04    -122.     37.8            3            0.925  1     
##  7  17.7      -1.04    -122.     37.8            5            0.0567 1     
##  8  29.0      -1.04    -122.     37.8            6            0.129  1     
##  9  24.1      -1.04    -122.     37.8            6            0.612  1     
## 10  17.7      -1.04    -122.     37.8            6            0.755  1     
## # ℹ 25,832 more rows
summary(sf_graph)
## A metric graph object with:
## 
## Vertices:
##   Total: 8781 
##   Degree 1: 15;  Degree 2: 6409;  Degree 3: 343;  Degree 4: 1842;  Degree 5: 58; 
##   Degree 6: 111;  Degree 7: 2;  Degree 8: 1; 
##   With incompatible directions:  0 
## 
## Edges: 
##   Total: 11104 
##   Lengths: 
##       Min: 0.00283468  ; Max: 1.480513  ; Total: 505.6148 
##   Weights: 
##       Columns: Length FRC SpeedLimit StreetName harmonicAverageSpeed medianSpeed averageSpeed sampleSize averageTravelTime medianTravelTime travelTimeRatio List_Number 5percentile 10percentile 15percentile 20percentile 25percentile 30percentile 35percentile 40percentile 45percentile 50percentile 55percentile 60percentile 65percentile 70percentile 75percentile 80percentile 85percentile 90percentile 95percentile road_type class_4 class_0 class_3 class_1 upto1 upto3 upto4 density density_per_hour 
##   That are circles:  0 
## 
## Graph units: 
##   Vertices unit:  degrees  ; Lengths unit:  km 
## 
## Longitude and Latitude coordinates:  TRUE
##   Which spatial package:  sf 
##   CRS:  EPSG:4326
## 
## Some characteristics of the graph:
##   Connected: TRUE
##   Has loops: FALSE
##   Has multiple edges: TRUE
##   Is a tree: FALSE
##   Distance consistent: FALSE
##   Has Euclidean edges: FALSE
## 
## Computed quantities inside the graph: 
##   Laplacian:  FALSE  ; Geodesic distances:  TRUE 
##   Resistance distances:  FALSE  ; Finite element matrices:  FALSE 
## 
## Mesh: The graph has no mesh! 
## 
## Data: 
##   Columns:  speed SpeedLimit 
##   Groups:  .group 
## 
## Tolerances: 
##   vertex-vertex:  0.001 
##   vertex-edge:  0.001 
##   edge-edge:  0

We build a mesh.

h = 0.05
sf_graph$build_mesh(h = h)
summary(sf_graph)
## A metric graph object with:
## 
## Vertices:
##   Total: 8781 
##   Degree 1: 15;  Degree 2: 6409;  Degree 3: 343;  Degree 4: 1842;  Degree 5: 58; 
##   Degree 6: 111;  Degree 7: 2;  Degree 8: 1; 
##   With incompatible directions:  0 
## 
## Edges: 
##   Total: 11104 
##   Lengths: 
##       Min: 0.00283468  ; Max: 1.480513  ; Total: 505.6148 
##   Weights: 
##       Columns: Length FRC SpeedLimit StreetName harmonicAverageSpeed medianSpeed averageSpeed sampleSize averageTravelTime medianTravelTime travelTimeRatio List_Number 5percentile 10percentile 15percentile 20percentile 25percentile 30percentile 35percentile 40percentile 45percentile 50percentile 55percentile 60percentile 65percentile 70percentile 75percentile 80percentile 85percentile 90percentile 95percentile road_type class_4 class_0 class_3 class_1 upto1 upto3 upto4 density density_per_hour 
##   That are circles:  0 
## 
## Graph units: 
##   Vertices unit:  degrees  ; Lengths unit:  km 
## 
## Longitude and Latitude coordinates:  TRUE
##   Which spatial package:  sf 
##   CRS:  EPSG:4326
## 
## Some characteristics of the graph:
##   Connected: TRUE
##   Has loops: FALSE
##   Has multiple edges: TRUE
##   Is a tree: FALSE
##   Distance consistent: FALSE
##   Has Euclidean edges: FALSE
## 
## Computed quantities inside the graph: 
##   Laplacian:  FALSE  ; Geodesic distances:  TRUE 
##   Resistance distances:  FALSE  ; Finite element matrices:  FALSE 
## 
## Mesh: 
##   Max h_e:  0.04999869  ; Min n_e:  0 
## 
## Data: 
##   Columns:  speed SpeedLimit 
##   Groups:  .group 
## 
## Tolerances: 
##   vertex-vertex:  0.001 
##   vertex-edge:  0.001 
##   edge-edge:  0

We get the value of the weights at mesh locations. This will allow us to built matrices B.sigma and B.range below. Again, sf_graph$edgeweight_to_data(mesh = TRUE, add = FALSE, return = TRUE) creates repeated information (because the data is grouped). We fix that by filtering one group. We also standardize the SpeedLimit covariate.

mesh = sf_graph$edgeweight_to_data(mesh = TRUE, 
                                   add = FALSE, 
                                   return = TRUE) %>% 
  filter(.group == 1) %>%
  mutate(across(c("SpeedLimit"), ~standardize(.))) %>%
  dplyr:::select.data.frame(SpeedLimit)
summary(mesh)
##    SpeedLimit      
##  Min.   :-1.91072  
##  1st Qu.:-0.76409  
##  Median :-0.34714  
##  Mean   : 0.00000  
##  3rd Qu.: 0.06981  
##  Max.   : 2.62366

1.1 Stationary model

  • Observe that we are considering replicates.
stat.time.ini <- Sys.time()
################################################################################
################################# STATIONARY MODEL #############################
################################################################################

rspde_model_stat <- rspde.metric_graph(sf_graph,
                                         parameterization = "matern",
                                         nu = 0.5)
str(rspde_model_stat)
## List of 21
##  $ f                   :List of 3
##   ..$ model   : chr "cgeneric"
##   ..$ n       : int 13932
##   ..$ cgeneric:List of 5
##   .. ..$ model: chr "inla_cgeneric_rspde_stat_int_model"
##   .. ..$ shlib: chr "/home/rierasl/R/x86_64-pc-linux-gnu-library/4.4/INLA/bin/linux/64bit/external/rSPDE/librSPDE.so"
##   .. ..$ n    : int 13932
##   .. ..$ debug: logi FALSE
##   .. ..$ data :List of 5
##   .. .. ..$ ints      :List of 5
##   .. .. .. ..$ n          : int 13932
##   .. .. .. ..$ debug      : int 0
##   .. .. .. ..$ m_alpha    : int 1
##   .. .. .. ..$ graph_opt_i: int [1:29068] 0 0 0 0 1 1 1 1 1 2 ...
##   .. .. .. ..$ graph_opt_j: int [1:29068] 0 5681 8781 11463 1 8781 11429 11463 13882 2 ...
##   .. .. ..$ doubles   :List of 4
##   .. .. .. ..$ matrices_less   : num [1:58136] 0.0534 0 0 0 0.0776 ...
##   .. .. .. ..$ theta.prior.mean: num [1:2] 0 1.35
##   .. .. .. ..$ start.theta     : num [1:2] 0 1.35
##   .. .. .. ..$ nu              : num 0.5
##   .. .. ..$ characters:List of 4
##   .. .. .. ..$ model            : chr "inla_cgeneric_rspde_stat_int_model"
##   .. .. .. ..$ shlib            : chr "/home/rierasl/R/x86_64-pc-linux-gnu-library/4.4/INLA/bin/linux/64bit/external/rSPDE/librSPDE.so"
##   .. .. .. ..$ parameterization : chr "matern"
##   .. .. .. ..$ prior.theta.param: chr "theta"
##   .. .. ..$ matrices  :List of 1
##   .. .. .. ..$ theta.prior.prec: num [1:6] 2 2 0.1 0 0 0.1
##   .. .. ..$ smatrices : list()
##   .. ..- attr(*, "class")= chr "inla.cgeneric"
##  $ cgeneric_type       : chr "int_alpha"
##  $ nu                  : num 0.5
##  $ theta.prior.mean    : num [1:2] 0 1.35
##  $ prior.nu            :List of 4
##   ..$ loglocation: num -5e-06
##   ..$ mean       : num 1
##   ..$ prec       : num 3
##   ..$ logscale   : num 1
##  $ theta.prior.prec    : num [1:2, 1:2] 0.1 0 0 0.1
##  $ start.nu            : num 0.5
##  $ integer.nu          : logi TRUE
##  $ start.theta         : num [1:2] 0 1.35
##  $ stationary          : logi TRUE
##  $ rspde.order         : num 2
##  $ dim                 : num 1
##  $ est_nu              : logi FALSE
##  $ nu.upper.bound      : num 2
##  $ prior.nu.dist       : chr "lognormal"
##  $ debug               : logi FALSE
##  $ type.rational.approx: chr "chebfun"
##  $ mesh                :Classes 'metric_graph', 'R6' <metric_graph>
##   Public:
##     add_mesh_observations: function (data = NULL, group = NULL) 
##     add_observations: function (data = NULL, edge_number = "edge_number", distance_on_edge = "distance_on_edge", 
##     build_mesh: function (h = NULL, n = NULL, continuous = TRUE, continuous.outs = FALSE, 
##     buildC: function (alpha = 2, edge_constraint = FALSE) 
##     buildDirectionalConstraints: function (alpha = 1) 
##     C: NULL
##     characteristics: list
##     check_distance_consistency: function () 
##     check_euclidean: function () 
##     clear_observations: function () 
##     clone: function (deep = FALSE) 
##     CoB: NULL
##     compute_characteristics: function (check_euclidean = FALSE) 
##     compute_fem: function (petrov = FALSE) 
##     compute_geodist: function (full = FALSE, obs = TRUE, group = NULL, verbose = 0) 
##     compute_geodist_mesh: function () 
##     compute_geodist_PtE: function (PtE, normalized = TRUE, include_vertices = TRUE, verbose = 0) 
##     compute_laplacian: function (full = FALSE, obs = TRUE, group = NULL, verbose = 0) 
##     compute_PtE_edges: function () 
##     compute_resdist: function (full = FALSE, obs = TRUE, group = NULL, check_euclidean = FALSE, 
##     compute_resdist_mesh: function () 
##     compute_resdist_PtE: function (PtE, normalized = TRUE, include_vertices = FALSE, check_euclidean = FALSE, 
##     coordinates: function (PtE = NULL, XY = NULL, normalized = TRUE) 
##     drop_na: function (...) 
##     E: 1 3 5 7 9 9 10 12 13 14 15 12 18 19 21 20 22 24 26 28 30 ...
##     edge_lengths: 0.0820202978316493 0.13610246403764 0.07378151878521 0.0 ...
##     edges: metric_graph_edges
##     edgeweight_to_data: function (loc = NULL, mesh = FALSE, data_loc = FALSE, weight_col = NULL, 
##     fem_basis: function (PtE) 
##     filter: function (..., .drop_na = FALSE, .drop_all_na = TRUE) 
##     geo_dist: list
##     get_data: function (group = NULL, tibble = TRUE, drop_na = FALSE, drop_all_na = TRUE) 
##     get_degrees: function (which = "degree") 
##     get_edge_lengths: function (unit = NULL) 
##     get_edge_weights: function (data.frame = FALSE, tibble = TRUE) 
##     get_groups: function (get_cols = FALSE) 
##     get_initial_graph: function () 
##     get_locations: function () 
##     get_mesh_locations: function (bru = FALSE, loc = NULL, normalized = TRUE) 
##     get_PtE: function () 
##     get_vertices_incomp_dir: function () 
##     initialize: function (edges = NULL, V = NULL, E = NULL, vertex_unit = NULL, 
##     is_tree: function () 
##     Laplacian: NULL
##     mesh: list
##     mesh_A: function (PtE) 
##     mutate: function (..., .drop_na = FALSE, .drop_all_na = TRUE) 
##     nE: 11104
##     nV: 8781
##     observation_to_vertex: function (tolerance = 1e-15, mesh_warning = TRUE) 
##     plot: function (data = NULL, newdata = NULL, group = 1, plotly = FALSE, 
##     plot_connections: function () 
##     plot_function: function (data = NULL, newdata = NULL, group = 1, X = NULL, plotly = FALSE, 
##     plot_movie: function (X, plotly = TRUE, vertex_size = 5, vertex_color = "black", 
##     print: function () 
##     process_data: function (data = NULL, edge_number = "edge_number", distance_on_edge = "distance_on_edge", 
##     prune_vertices: function (check_weights = TRUE, verbose = FALSE) 
##     PtV: NULL
##     res_dist: NULL
##     select: function (..., .drop_na = FALSE, .drop_all_na = TRUE) 
##     set_edge_weights: function (weights = rep(1, self$nE), kirchhoff_weights = NULL) 
##     summarise: function (..., .include_graph_groups = FALSE, .groups = NULL, 
##     summary: function (messages = FALSE, compute_characteristics = TRUE, check_euclidean = TRUE, 
##     V: -122.40171 -122.40078 -122.44449 -122.44331 -122.41216 - ...
##     vertices: metric_graph_vertices
##     VtEfirst: function () 
##   Private:
##     A: function (group = NULL, obs_to_vert = FALSE, drop_na = FALSE, 
##     add_vertices: function (PtE, tolerance = 1e-10, verbose) 
##     addinfo: FALSE
##     clear_initial_info: function () 
##     compute_degrees: function () 
##     compute_laplacian_PtE: function (PtE, normalized = TRUE, verbose = verbose) 
##     compute_lengths: function (longlat, unit, crs, proj4string, which_longlat, vertex_unit, 
##     connected: TRUE
##     coordinates_multiple_snaps: function (XY, tolerance, verbose = verbose, crs, proj4string, 
##     create_update_vertices: function () 
##     crs: crs
##     data: metric_graph_data, list
##     edge_weights: tbl_df, tbl, data.frame
##     find_edge_edge_points: function (tol, verbose, crs, proj4string, longlat, fact, which_longlat) 
##     find_mesh_bc: function () 
##     get_edge_weights_internal: function (data.frame = FALSE) 
##     group_col: .group
##     initial_edges_added: NULL
##     initial_graph: metric_graph, R6
##     kirchhoff_weights: NULL
##     length_unit: km
##     line_to_vertex: function (tolerance = 0, longlat = FALSE, fact, verbose, crs, 
##     longlat: TRUE
##     merge_close_vertices: function (tolerance, fact) 
##     merge.all.deg2: function () 
##     mesh_merge_deg2: function () 
##     mesh_merge_outs: function () 
##     move_V_first: function () 
##     plot_2d: function (line_width = 0.1, marker_size = 1, vertex_color = "black", 
##     plot_3d: function (line_width = 1, marker_size = 1, vertex_color = "rgb(0,0,0)", 
##     proj4string: NULL
##     prune_warning: FALSE
##     pruned: FALSE
##     PtE_to_mesh: function (PtE) 
##     ref_edges: 1 5502 2 359 3 4077 4 5117 5 7 5419 8 9 10 11 4817 4613  ...
##     remove_circles: function (threshold, verbose, longlat, unit, crs, proj4string, 
##     remove.first.deg2: function (res) 
##     set_first_weights: function (weights = rep(1, self$nE)) 
##     set_petrov_matrices: function () 
##     split_edge: function (Ei, t, tolerance = 0) 
##     temp_PtE: NULL
##     tolerance: list
##     transform: FALSE
##     vertex_unit: degrees
##     which_longlat: sf 
##  $ fem_mesh            :List of 4
##   ..$ c0:Formal class 'dgTMatrix' [package "Matrix"] with 6 slots
##   .. .. ..@ i       : int [1:13932] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. ..@ j       : int [1:13932] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. ..@ Dim     : int [1:2] 13932 13932
##   .. .. ..@ Dimnames:List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : NULL
##   .. .. ..@ x       : num [1:13932] 0.0534 0.0776 0.0408 0.0457 0.0367 ...
##   .. .. ..@ factors : list()
##   ..$ g1:Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. ..@ i       : int [1:44204] 0 5681 8781 11463 1 8781 11429 11463 13882 2 ...
##   .. .. ..@ p       : int [1:13933] 0 4 9 12 15 18 23 26 29 34 ...
##   .. .. ..@ Dim     : int [1:2] 13932 13932
##   .. .. ..@ Dimnames:List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : NULL
##   .. .. ..@ x       : num [1:44204] 210.6 -161.9 -24.4 -24.4 103.4 ...
##   .. .. ..@ factors : list()
##   ..$ g2:Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. ..@ i       : int [1:81554] 0 1 5399 5681 8781 11463 0 1 4450 8781 ...
##   .. .. ..@ p       : int [1:13933] 0 6 13 18 23 28 37 42 47 56 ...
##   .. .. ..@ Dim     : int [1:2] 13932 13932
##   .. .. ..@ Dimnames:List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : NULL
##   .. .. ..@ x       : num [1:81554] 1731368 28997 607384 -2117274 -125237 ...
##   .. .. ..@ factors : list()
##   ..$ g3:Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. ..@ i       : int [1:124984] 0 1 805 5399 5681 8781 11429 11463 13882 0 ...
##   .. .. ..@ p       : int [1:13933] 0 9 18 25 32 43 56 65 72 85 ...
##   .. .. ..@ Dim     : int [1:2] 13932 13932
##   .. .. ..@ Dimnames:List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : NULL
##   .. .. ..@ x       : num [1:124984] 1.84e+10 1.88e+08 -4.79e+08 9.57e+09 -2.57e+10 ...
##   .. .. ..@ factors : list()
##  $ parameterization    : chr "matern"
##  $ n.spde              : int 13932
##  - attr(*, "class")= chr [1:3] "rspde_metric_graph" "inla_rspde" "inla.cgeneric"
data_rspde_bru_stat <- graph_data_rspde(rspde_model_stat,
                                        repl = ".all",
                                        loc_name = "loc")
str(data_rspde_bru_stat)
## List of 4
##  $ data :List of 8
##   ..$ speed            : num [1:25842] 99.8 91.7 99.8 14.5 16.1 ...
##   ..$ SpeedLimit       : num [1:25842] 4.09 4.09 4.09 -1.04 -1.04 ...
##   ..$ .coord_x         : num [1:25842] -122 -122 -122 -122 -122 ...
##   ..$ .coord_y         : num [1:25842] 37.7 37.7 37.7 37.8 37.8 ...
##   ..$ .edge_number     : num [1:25842] 2 2 2 3 3 3 5 6 6 6 ...
##   ..$ .distance_on_edge: num [1:25842] 0.195 0.227 0.363 0.309 0.583 ...
##   ..$ .group           : chr [1:25842] "1" "1" "1" "1" ...
##   ..$ loc              : num [1:25842, 1:2] 2 2 2 3 3 3 5 6 6 6 ...
##   ..- attr(*, "class")= chr [1:2] "metric_graph_data" "list"
##  $ index:List of 3
##   ..$ field      : int [1:55728] 1 2 3 4 5 6 7 8 9 10 ...
##   ..$ field.group: int [1:55728] 1 1 1 1 1 1 1 1 1 1 ...
##   ..$ field.repl : int [1:55728] 1 1 1 1 1 1 1 1 1 1 ...
##   ..- attr(*, "class")= chr [1:2] "inla_rspde_index" "list"
##   ..- attr(*, "rspde.order")= num 0
##   ..- attr(*, "integer_nu")= logi TRUE
##   ..- attr(*, "n.mesh")= int 13932
##   ..- attr(*, "name")= chr "field"
##   ..- attr(*, "n.group")= int 1
##   ..- attr(*, "n.repl")= int 4
##  $ repl : chr [1:25842] "1" "1" "1" "1" ...
##  $ basis:Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. ..@ i       : int [1:51684] 0 1 3 8 9 10 11 12 13 14 ...
##   .. ..@ p       : int [1:55729] 0 0 0 2 2 10 16 16 16 21 ...
##   .. ..@ Dim     : int [1:2] 25842 55728
##   .. ..@ Dimnames:List of 2
##   .. .. ..$ : NULL
##   .. .. ..$ : NULL
##   .. ..@ x       : num [1:51684] 0.416 0.319 0.382 0.224 0.509 ...
##   .. ..@ factors : list()
cmp_stat = speed ~ -1 +
  Intercept(1) +
  SpeedLimit +
  field(loc, model = rspde_model_stat,
        replicate = data_rspde_bru_stat[["repl"]])

rspde_fit_stat <-
  bru(cmp_stat,
      data = data_rspde_bru_stat[["data"]],
      family = "gaussian",
      options = list(verbose = FALSE)
  )
str(rspde_fit_stat)
## List of 56
##  $ names.fixed                : chr [1:2] "Intercept" "SpeedLimit"
##  $ summary.fixed              :'data.frame': 2 obs. of  7 variables:
##   ..$ mean      : num [1:2] 29.59 6.79
##   ..$ sd        : num [1:2] 0.286 0.232
##   ..$ 0.025quant: num [1:2] 29.04 6.34
##   ..$ 0.5quant  : num [1:2] 29.58 6.79
##   ..$ 0.975quant: num [1:2] 30.16 7.24
##   ..$ mode      : num [1:2] 29.6 6.8
##   ..$ kld       : num [1:2] 2.86e-08 2.31e-07
##  $ marginals.fixed            :List of 2
##   ..$ Intercept : num [1:43, 1:2] 28.4 28.6 28.7 28.9 29 ...
##   .. ..- attr(*, "dimnames")=List of 2
##   .. .. ..$ : NULL
##   .. .. ..$ : chr [1:2] "x" "y"
##   ..$ SpeedLimit: num [1:43, 1:2] 5.88 5.98 6.1 6.26 6.34 ...
##   .. ..- attr(*, "dimnames")=List of 2
##   .. .. ..$ : NULL
##   .. .. ..$ : chr [1:2] "x" "y"
##  $ summary.lincomb            :'data.frame': 0 obs. of  0 variables
##  $ marginals.lincomb          : NULL
##  $ size.lincomb               : NULL
##  $ summary.lincomb.derived    :'data.frame': 0 obs. of  0 variables
##  $ marginals.lincomb.derived  : NULL
##  $ size.lincomb.derived       : NULL
##  $ mlik                       : num [1:2, 1] -104435 -104434
##   ..- attr(*, "dimnames")=List of 2
##   .. ..$ : chr [1:2] "log marginal-likelihood (integration)" "log marginal-likelihood (Gaussian)"
##   .. ..$ : NULL
##  $ cpo                        :List of 3
##   ..$ cpo    : logi(0) 
##   ..$ pit    : logi(0) 
##   ..$ failure: logi(0) 
##  $ gcpo                       :List of 5
##   ..$ gcpo  : NULL
##   ..$ kld   : NULL
##   ..$ mean  : NULL
##   ..$ sd    : NULL
##   ..$ groups: NULL
##  $ po                         :List of 1
##   ..$ po: num [1:25842] 0.0274 0.0329 0.0287 0.0338 0.0318 ...
##  $ waic                       :List of 4
##   ..$ waic       : num 202882
##   ..$ p.eff      : num 5830
##   ..$ local.waic : num [1:25842] 7.55 6.91 7.47 6.82 7.04 ...
##   ..$ local.p.eff: num [1:25842] 0.1777 0.0422 0.1821 0.0244 0.0705 ...
##  $ residuals                  :List of 1
##   ..$ deviance.residuals: num [1:25842] 0.867 -0.53 0.809 -0.469 -0.617 ...
##  $ model.random               : chr "CGeneric"
##  $ summary.random             :List of 1
##   ..$ field:'data.frame':    55728 obs. of  8 variables:
##   .. ..$ ID        : num [1:55728] 1 2 3 4 5 6 7 8 9 10 ...
##   .. ..$ mean      : num [1:55728] -4.1 -2.04 31.8 27.26 -11.82 ...
##   .. ..$ sd        : num [1:55728] 12.02 12.26 9.73 14.94 5.35 ...
##   .. ..$ 0.025quant: num [1:55728] -27.69 -26.09 12.69 -2.08 -22.32 ...
##   .. ..$ 0.5quant  : num [1:55728] -4.1 -2.03 31.81 27.28 -11.82 ...
##   .. ..$ 0.975quant: num [1:55728] 19.47 22 50.85 56.53 -1.32 ...
##   .. ..$ mode      : num [1:55728] -4.1 -2.03 31.81 27.28 -11.82 ...
##   .. ..$ kld       : num [1:55728] 3.49e-11 2.82e-11 2.48e-10 2.19e-10 2.85e-11 ...
##  $ marginals.random           :List of 1
##   ..$ field:List of 55728
##   .. ..$ index.1    : num [1:43, 1:2] -55.5 -48.9 -41.3 -32.1 -27.7 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.2    : num [1:43, 1:2] -54.5 -47.8 -40 -30.6 -26.1 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.3    : num [1:43, 1:2] -9.89 -4.56 1.62 9.11 12.69 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.4    : num [1:43, 1:2] -36.71 -28.54 -19.07 -7.58 -2.08 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.5    : num [1:43, 1:2] -34.6 -31.7 -28.4 -24.3 -22.3 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.6    : num [1:43, 1:2] -19.56 -16.53 -13.02 -8.74 -6.69 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.7    : num [1:43, 1:2] -63 -55.5 -46.9 -36.5 -31.4 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.8    : num [1:43, 1:2] -71 -62.4 -52.3 -40.2 -34.3 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.9    : num [1:43, 1:2] -30.8 -27.8 -24.4 -20.2 -18.1 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.10   : num [1:43, 1:2] -37.8 -35 -31.7 -27.7 -25.8 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.11   : num [1:43, 1:2] -45.8 -41.4 -36.4 -30.3 -27.3 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.12   : num [1:43, 1:2] -31.8 -28 -23.5 -18.1 -15.5 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.13   : num [1:43, 1:2] -21.79 -18.67 -15.04 -10.64 -8.52 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.14   : num [1:43, 1:2] -25.9 -23.3 -20.2 -16.4 -14.6 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.15   : num [1:43, 1:2] -34.8 -32.2 -29.1 -25.5 -23.7 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.16   : num [1:43, 1:2] -29.9 -27.4 -24.6 -21.2 -19.5 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.17   : num [1:43, 1:2] -64.1 -58 -50.8 -42.2 -38 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.18   : num [1:43, 1:2] -77.3 -69.2 -59.7 -48.2 -42.7 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.19   : num [1:43, 1:2] -60.1 -54.7 -48.4 -40.8 -37.1 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.20   : num [1:43, 1:2] -56.2 -50.5 -43.8 -35.8 -31.9 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.21   : num [1:43, 1:2] -30 -27.4 -24.5 -21 -19.3 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.22   : num [1:43, 1:2] -41 -36.6 -31.6 -25.4 -22.5 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.23   : num [1:43, 1:2] -28 -24.7 -20.9 -16.3 -14 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.24   : num [1:43, 1:2] -23.8 -21.7 -19.3 -16.4 -15.1 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.25   : num [1:43, 1:2] -22.2 -20.2 -17.8 -14.9 -13.6 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.26   : num [1:43, 1:2] -42.7 -36 -28.3 -18.9 -14.4 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.27   : num [1:43, 1:2] -3.71 -1.51 1.05 4.16 5.65 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.28   : num [1:43, 1:2] -37.8 -34.6 -30.8 -26.2 -24 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.29   : num [1:43, 1:2] -55.1 -50.2 -44.4 -37.5 -34.1 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.30   : num [1:43, 1:2] -50.3 -44.8 -38.4 -30.7 -27 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.31   : num [1:43, 1:2] -29.3 -26.6 -23.4 -19.5 -17.6 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.32   : num [1:43, 1:2] -30.4 -28.2 -25.8 -22.8 -21.3 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.33   : num [1:43, 1:2] -69.4 -60 -49.1 -35.9 -29.6 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.34   : num [1:43, 1:2] -67.2 -57.9 -47.1 -34 -27.8 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.35   : num [1:43, 1:2] -40.1 -34.7 -28.5 -20.9 -17.3 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.36   : num [1:43, 1:2] -46.3 -40 -32.9 -24.1 -19.9 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.37   : num [1:43, 1:2] -72.7 -65.4 -56.9 -46.7 -41.8 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.38   : num [1:43, 1:2] -70.9 -63.5 -55 -44.7 -39.7 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.39   : num [1:43, 1:2] -34.3 -30.7 -26.4 -21.2 -18.7 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.40   : num [1:43, 1:2] -32.4 -29.4 -26 -21.8 -19.8 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.41   : num [1:43, 1:2] -39 -33.4 -26.8 -18.9 -15.1 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.42   : num [1:43, 1:2] -39.4 -33.8 -27.4 -19.6 -15.8 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.43   : num [1:43, 1:2] -68 -59.6 -49.9 -38.1 -32.4 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.44   : num [1:43, 1:2] -60.6 -53.1 -44.5 -33.9 -28.9 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.45   : num [1:43, 1:2] -64.3 -56.4 -47.2 -36 -30.7 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.46   : num [1:43, 1:2] -61.1 -54.3 -46.4 -36.9 -32.3 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.47   : num [1:43, 1:2] -52.3 -47.5 -41.9 -35.1 -31.8 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.48   : num [1:43, 1:2] -70.2 -62.1 -52.7 -41.3 -35.8 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.49   : num [1:43, 1:2] -69.3 -61.2 -51.9 -40.5 -35.1 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.50   : num [1:43, 1:2] -49.8 -44.3 -38 -30.2 -26.5 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.51   : num [1:43, 1:2] -68.8 -60.5 -50.9 -39.3 -33.7 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.52   : num [1:43, 1:2] -51.5 -46.2 -40 -32.4 -28.8 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.53   : num [1:43, 1:2] -67.5 -59.2 -49.6 -37.9 -32.3 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.54   : num [1:43, 1:2] -52.4 -45.9 -38.4 -29.2 -24.9 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.55   : num [1:43, 1:2] -66.5 -58.3 -48.8 -37.3 -31.8 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.56   : num [1:43, 1:2] -63.6 -55.9 -47 -36.2 -31.1 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.57   : num [1:43, 1:2] -38.4 -33.3 -27.3 -20.1 -16.6 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.58   : num [1:43, 1:2] -47.3 -41.7 -35.1 -27.2 -23.3 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.59   : num [1:43, 1:2] -51.6 -46.7 -41 -34 -30.6 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.60   : num [1:43, 1:2] -65.1 -58.3 -50.4 -40.8 -36.2 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.61   : num [1:43, 1:2] -71.8 -63.9 -54.9 -43.8 -38.5 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.62   : num [1:43, 1:2] -41.8 -37.7 -33.1 -27.4 -24.6 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.63   : num [1:43, 1:2] -52.3 -46.4 -39.7 -31.4 -27.5 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.64   : num [1:43, 1:2] -52.1 -46.1 -39.1 -30.6 -26.6 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.65   : num [1:43, 1:2] -45.1 -39.9 -33.9 -26.6 -23.1 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.66   : num [1:43, 1:2] -73 -64.9 -55.6 -44.2 -38.8 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.67   : num [1:43, 1:2] -69.9 -62.2 -53.4 -42.7 -37.5 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.68   : num [1:43, 1:2] -50.6 -44.6 -37.8 -29.4 -25.4 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.69   : num [1:43, 1:2] -48.1 -42.6 -36.1 -28.3 -24.6 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.70   : num [1:43, 1:2] -48.9 -43.5 -37.1 -29.4 -25.7 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.71   : num [1:43, 1:2] -52 -46.2 -39.4 -31.3 -27.4 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.72   : num [1:43, 1:2] -71.2 -62.1 -51.5 -38.7 -32.5 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.73   : num [1:43, 1:2] -69.2 -60.3 -49.9 -37.3 -31.2 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.74   : num [1:43, 1:2] -72.1 -62.9 -52.3 -39.5 -33.3 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.75   : num [1:43, 1:2] -73.4 -64.1 -53.2 -40.1 -33.8 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.76   : num [1:43, 1:2] -61.5 -53.7 -44.8 -33.9 -28.6 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.77   : num [1:43, 1:2] -69.4 -60.6 -50.4 -38.1 -32.1 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.78   : num [1:43, 1:2] -55.2 -48.3 -40.3 -30.7 -26 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.79   : num [1:43, 1:2] -54.2 -47.5 -39.7 -30.3 -25.8 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.80   : num [1:43, 1:2] -52 -45.6 -38.1 -29 -24.7 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.81   : num [1:43, 1:2] -53 -46.3 -38.6 -29.2 -24.8 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.82   : num [1:43, 1:2] -53.1 -46.4 -38.6 -29.2 -24.7 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.83   : num [1:43, 1:2] -35.3 -31.2 -26.5 -20.8 -18 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.84   : num [1:43, 1:2] -29.9 -26.6 -22.8 -18.1 -15.8 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.85   : num [1:43, 1:2] -64.7 -55.7 -45.2 -32.5 -26.4 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.86   : num [1:43, 1:2] -66.9 -57.7 -47 -34.1 -27.9 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.87   : num [1:43, 1:2] -52.6 -45.9 -38.2 -28.7 -24.2 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.88   : num [1:43, 1:2] -51.6 -45 -37.4 -28.1 -23.7 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.89   : num [1:43, 1:2] -64.5 -55.7 -45.4 -33 -27 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.90   : num [1:43, 1:2] -62.8 -54.1 -44 -31.8 -25.9 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.91   : num [1:43, 1:2] -28.6 -25.6 -22.1 -17.9 -15.9 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.92   : num [1:43, 1:2] -23.7 -21.4 -18.6 -15.2 -13.6 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.93   : num [1:43, 1:2] -52.9 -46.2 -38.4 -28.9 -24.4 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.94   : num [1:43, 1:2] -52.8 -46 -38.3 -28.8 -24.3 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.95   : num [1:43, 1:2] -21.2 -18.7 -15.8 -12.3 -10.6 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.96   : num [1:43, 1:2] -11.733 -8.944 -5.71 -1.778 0.108 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.97   : num [1:43, 1:2] -41.5 -36.5 -30.7 -23.6 -20.2 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.98   : num [1:43, 1:2] -40 -35.8 -31 -25.2 -22.4 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.99   : num [1:43, 1:2] -29.8 -26.9 -23.5 -19.3 -17.3 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. .. [list output truncated]
##  $ size.random                :List of 1
##   ..$ :List of 5
##   .. ..$ n     : num 13932
##   .. ..$ N     : num 13932
##   .. ..$ Ntotal: num 55728
##   .. ..$ ngroup: num 1
##   .. ..$ nrep  : num 4
##  $ summary.linear.predictor   :'data.frame': 81572 obs. of  7 variables:
##   ..$ mean      : num [1:81572] 92.4 93 94.1 14.7 18.7 ...
##   ..$ sd        : num [1:81572] 5.72 5.62 6.62 5.01 6.03 ...
##   ..$ 0.025quant: num [1:81572] 81.2 81.92 81.14 4.86 6.92 ...
##   ..$ 0.5quant  : num [1:81572] 92.4 93 94.1 14.7 18.7 ...
##   ..$ 0.975quant: num [1:81572] 103.6 104 107.1 24.5 30.6 ...
##   ..$ mode      : num [1:81572] 92.4 93 94.1 14.7 18.7 ...
##   ..$ kld       : num [1:81572] 4.92e-11 4.80e-11 4.86e-11 4.05e-11 2.72e-11 ...
##  $ marginals.linear.predictor : NULL
##  $ summary.fitted.values      :'data.frame': 81572 obs. of  6 variables:
##   ..$ mean      : num [1:81572] 92.4 93 94.1 14.7 18.7 ...
##   ..$ sd        : num [1:81572] 5.72 5.62 6.62 5.01 6.03 ...
##   ..$ 0.025quant: num [1:81572] 81.2 81.92 81.14 4.86 6.92 ...
##   ..$ 0.5quant  : num [1:81572] 92.4 93 94.1 14.7 18.7 ...
##   ..$ 0.975quant: num [1:81572] 103.6 104 107.1 24.5 30.6 ...
##   ..$ mode      : num [1:81572] 92.4 93 94.1 14.7 18.7 ...
##  $ marginals.fitted.values    : NULL
##  $ size.linear.predictor      :List of 5
##   ..$ n     : num 55730
##   ..$ N     : num 55730
##   ..$ Ntotal: num 81572
##   ..$ ngroup: num 1
##   ..$ nrep  : num 2
##  $ summary.hyperpar           :'data.frame': 3 obs. of  6 variables:
##   ..$ mean      : num [1:3] 0.00878 2.86472 -1.40214
##   ..$ sd        : num [1:3] 0.000112 0.017695 0.085395
##   ..$ 0.025quant: num [1:3] 0.00856 2.82999 -1.56938
##   ..$ 0.5quant  : num [1:3] 0.00878 2.86468 -1.40244
##   ..$ 0.975quant: num [1:3] 0.009 2.9 -1.233
##   ..$ mode      : num [1:3] 0.00878 2.86453 -1.40369
##  $ marginals.hyperpar         :List of 3
##   ..$ Precision for the Gaussian observations: num [1:43, 1:2] 0.00831 0.00837 0.00844 0.00852 0.00856 ...
##   .. ..- attr(*, "hyperid")= chr "65001|INLA.Data1"
##   .. ..- attr(*, "dimnames")=List of 2
##   .. .. ..$ : NULL
##   .. .. ..$ : chr [1:2] "x" "y"
##   ..$ Theta1 for field                       : num [1:43, 1:2] 2.79 2.8 2.81 2.82 2.83 ...
##   .. ..- attr(*, "hyperid")= chr ""
##   .. ..- attr(*, "dimnames")=List of 2
##   .. .. ..$ : NULL
##   .. .. ..$ : chr [1:2] "x" "y"
##   ..$ Theta2 for field                       : num [1:43, 1:2] -1.77 -1.72 -1.67 -1.6 -1.57 ...
##   .. ..- attr(*, "hyperid")= chr ""
##   .. ..- attr(*, "dimnames")=List of 2
##   .. .. ..$ : NULL
##   .. .. ..$ : chr [1:2] "x" "y"
##  $ internal.summary.hyperpar  :'data.frame': 3 obs. of  6 variables:
##   ..$ mean      : num [1:3] -4.74 2.86 -1.4
##   ..$ sd        : num [1:3] 0.0127 0.0177 0.0854
##   ..$ 0.025quant: num [1:3] -4.76 2.83 -1.57
##   ..$ 0.5quant  : num [1:3] -4.74 2.86 -1.4
##   ..$ 0.975quant: num [1:3] -4.71 2.9 -1.23
##   ..$ mode      : num [1:3] -4.74 2.86 -1.4
##  $ internal.marginals.hyperpar:List of 3
##   ..$ Log precision for the Gaussian observations: num [1:43, 1:2] -4.79 -4.78 -4.78 -4.77 -4.76 ...
##   .. ..- attr(*, "hyperid")= chr "65001|INLA.Data1"
##   .. ..- attr(*, "dimnames")=List of 2
##   .. .. ..$ : NULL
##   .. .. ..$ : chr [1:2] "x" "y"
##   ..$ Theta1 for field                           : num [1:43, 1:2] 2.79 2.8 2.81 2.82 2.83 ...
##   .. ..- attr(*, "hyperid")= chr ""
##   .. ..- attr(*, "dimnames")=List of 2
##   .. .. ..$ : NULL
##   .. .. ..$ : chr [1:2] "x" "y"
##   ..$ Theta2 for field                           : num [1:43, 1:2] -1.77 -1.72 -1.67 -1.6 -1.57 ...
##   .. ..- attr(*, "hyperid")= chr ""
##   .. ..- attr(*, "dimnames")=List of 2
##   .. .. ..$ : NULL
##   .. .. ..$ : chr [1:2] "x" "y"
##  $ offset.linear.predictor    : num [1:81572] 0 0 0 0 0 0 0 0 0 0 ...
##  $ model.spde2.blc            : NULL
##  $ summary.spde2.blc          : list()
##  $ marginals.spde2.blc        : NULL
##  $ size.spde2.blc             : NULL
##  $ model.spde3.blc            : NULL
##  $ summary.spde3.blc          : list()
##  $ marginals.spde3.blc        : NULL
##  $ size.spde3.blc             : NULL
##  $ logfile                    : chr [1:630] "[PANUA] PARDISO License is expired." "[PANUA] Please obtain a new PARDISO license at https://www.panua.ch/products/pardiso" "        Read ntt 24 1 with max.threads 24" "        Found num.threads = 24:1 max_threads = 24" ...
##  $ misc                       :List of 22
##   ..$ cov.intern                        : num [1:3, 1:3] 1.62e-04 -1.65e-06 -3.67e-04 -1.65e-06 3.13e-04 ...
##   ..$ cor.intern                        : num [1:3, 1:3] 1 -0.00733 -0.33842 -0.00733 1 ...
##   ..$ cov.intern.eigenvalues            : num [1:3] 9.04e-05 1.98e-04 7.48e-03
##   ..$ cov.intern.eigenvectors           : num [1:3, 1:3] 0.712 -0.688 0.141 -0.701 -0.71 ...
##   ..$ reordering                        : int [1:55730] 42983 42998 52878 52893 42147 42217 42261 42282 42327 42294 ...
##   ..$ theta.tags                        : chr [1:3] "Log precision for the Gaussian observations" "Theta1 for field" "Theta2 for field"
##   ..$ log.posterior.mode                : num -104425
##   ..$ stdev.corr.negative               : num [1:3] 1.001 1.001 0.988
##   ..$ stdev.corr.positive               : num [1:3] 0.999 0.999 1.013
##   ..$ to.theta                          :List of 3
##   .. ..$ Log precision for the Gaussian observations:function (x)  
##   .. ..$ Theta1 for field                           :function (x)  
##   .. ..$ Theta2 for field                           :function (x)  
##   ..$ from.theta                        :List of 3
##   .. ..$ Log precision for the Gaussian observations:function (x)  
##   .. ..$ Theta1 for field                           :function (x)  
##   .. ..$ Theta2 for field                           :function (x)  
##   ..$ mode.status                       : num 0
##   ..$ lincomb.derived.correlation.matrix: NULL
##   ..$ lincomb.derived.covariance.matrix : NULL
##   ..$ opt.directions                    : num [1:3, 1:3] 0.424 -0.285 0.86 -0.585 0.639 ...
##   .. ..- attr(*, "dimnames")=List of 2
##   .. .. ..$ : chr [1:3] "theta:1" "theta:2" "theta:3"
##   .. .. ..$ : chr [1:3] "dir:1" "dir:2" "dir:3"
##   ..$ configs                           :List of 17
##   .. ..$ .preopt          : logi TRUE
##   .. ..$ lite             : logi FALSE
##   .. ..$ mpred            : int 25842
##   .. ..$ npred            : int 55730
##   .. ..$ mnpred           : int 81572
##   .. ..$ Npred            : int 25842
##   .. ..$ n                : int 55730
##   .. ..$ nz               : int 153769
##   .. ..$ prior_nz         : int 116274
##   .. ..$ ntheta           : int 3
##   .. ..$ nconfig          : int 15
##   .. ..$ offsets          : num [1:81572] 0 0 0 0 0 0 0 0 0 0 ...
##   .. ..$ contents         :List of 3
##   .. .. ..$ tag   : chr [1:5] "APredictor" "Predictor" "field" "Intercept" ...
##   .. .. ..$ start : int [1:5] 1 25843 81573 137301 137302
##   .. .. ..$ length: int [1:5] 25842 55730 55728 1 1
##   .. ..$ A                :Formal class 'dgTMatrix' [package "Matrix"] with 6 slots
##   .. .. .. ..@ i       : int [1:55730] 2 3 4 5 6 7 8 9 10 11 ...
##   .. .. .. ..@ j       : int [1:55730] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. ..$ : NULL
##   .. .. .. .. ..$ : NULL
##   .. .. .. ..@ x       : num [1:55730] 1 1 1 1 1 1 1 1 1 1 ...
##   .. .. .. ..@ factors : list()
##   .. ..$ pA               :Formal class 'dgTMatrix' [package "Matrix"] with 6 slots
##   .. .. .. ..@ i       : int [1:103342] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. ..@ j       : int [1:103342] 0 0 0 0 0 0 0 0 0 0 ...
##   .. .. .. ..@ Dim     : int [1:2] 25842 55730
##   .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. ..$ : NULL
##   .. .. .. .. ..$ : NULL
##   .. .. .. ..@ x       : num [1:103342] 1 1 1 1 1 1 1 1 1 1 ...
##   .. .. .. ..@ factors : list()
##   .. ..$ config           :List of 15
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:3] -4.74 2.86 -1.4
##   .. .. .. .. ..- attr(*, "names")= chr [1:3] "Log precision for the Gaussian observations" "Theta1 for field" "Theta2 for field"
##   .. .. .. ..$ log.posterior     : num -3.41
##   .. .. .. ..$ log.posterior.orig: num 0
##   .. .. .. ..$ mean              : num [1:55730] -4.09 -2.02 31.79 27.26 -11.82 ...
##   .. .. .. ..$ improved.mean     : num [1:55730] -4.09 -2.02 31.79 27.26 -11.82 ...
##   .. .. .. ..$ skewness          : logi [1:55730] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:153769] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:153769] 0.04275 0.02167 0.01285 0.00935 0.03764 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:153769] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:153769] 144.3 150.1 94 220.1 28.6 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:116274] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:116274] 0.04275 0.02167 0.01044 0.00935 0.01137 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:25842, 1:3] 0.06459 -0.0107 0.04965 -0.00174 -0.02326 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:25842, 1:2] 92.4 93 94.1 14.7 18.7 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:55730, 1:2] 29.59 6.8 -4.09 -2.02 31.79 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:3] -4.72 2.85 -1.4
##   .. .. .. .. ..- attr(*, "names")= chr [1:3] "Log precision for the Gaussian observations" "Theta1 for field" "Theta2 for field"
##   .. .. .. ..$ log.posterior     : num -4.49
##   .. .. .. ..$ log.posterior.orig: num -1.82
##   .. .. .. ..$ mean              : num [1:55730] -4.09 -2.03 31.72 27.23 -11.75 ...
##   .. .. .. ..$ improved.mean     : num [1:55730] -4.09 -2.03 31.72 27.23 -11.75 ...
##   .. .. .. ..$ skewness          : logi [1:55730] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:153769] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:153769] 0.0439 0.0223 0.0132 0.0096 0.0383 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:153769] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:153769] 140.7 146.4 91.9 214.6 28.1 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:116274] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:116274] 0.0439 0.0223 0.0107 0.0096 0.0117 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:25842, 1:3] 0.06574 -0.01052 0.05064 -0.00197 -0.02361 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:25842, 1:2] 92.4 92.9 94.1 14.7 18.7 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:55730, 1:2] 29.58 6.81 -4.09 -2.03 31.72 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:3] -4.75 2.88 -1.41
##   .. .. .. .. ..- attr(*, "names")= chr [1:3] "Log precision for the Gaussian observations" "Theta1 for field" "Theta2 for field"
##   .. .. .. ..$ log.posterior     : num -4.48
##   .. .. .. ..$ log.posterior.orig: num -1.81
##   .. .. .. ..$ mean              : num [1:55730] -4.08 -2.01 31.85 27.29 -11.88 ...
##   .. .. .. ..$ improved.mean     : num [1:55730] -4.08 -2.01 31.85 27.29 -11.88 ...
##   .. .. .. ..$ skewness          : logi [1:55730] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:153769] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:153769] 0.0416 0.0211 0.0125 0.0091 0.037 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:153769] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:153769] 148 153.9 96.1 225.8 29.2 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:116274] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:116274] 0.0416 0.0211 0.0102 0.0091 0.0111 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:25842, 1:3] 0.06346 -0.01088 0.04868 -0.00151 -0.02292 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:25842, 1:2] 92.5 93 94.2 14.7 18.7 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:55730, 1:2] 29.59 6.78 -4.08 -2.01 31.85 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:3] -4.75 2.85 -1.4
##   .. .. .. .. ..- attr(*, "names")= chr [1:3] "Log precision for the Gaussian observations" "Theta1 for field" "Theta2 for field"
##   .. .. .. ..$ log.posterior     : num -4.48
##   .. .. .. ..$ log.posterior.orig: num -1.81
##   .. .. .. ..$ mean              : num [1:55730] -4.05 -2.01 31.41 26.92 -11.53 ...
##   .. .. .. ..$ improved.mean     : num [1:55730] -4.05 -2.01 31.41 26.92 -11.53 ...
##   .. .. .. ..$ skewness          : logi [1:55730] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:153769] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:153769] 0.04449 0.02255 0.01323 0.00973 0.03762 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:153769] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:153769] 138.9 144.5 92.1 212.4 28.5 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:116274] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:116274] 0.04449 0.02255 0.01086 0.00973 0.01183 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:25842, 1:3] 0.06489 -0.00895 0.05042 -0.00253 -0.023 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:25842, 1:2] 92.2 92.8 93.9 14.8 18.8 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:55730, 1:2] 29.53 6.87 -4.05 -2.01 31.41 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:3] -4.72 2.88 -1.41
##   .. .. .. .. ..- attr(*, "names")= chr [1:3] "Log precision for the Gaussian observations" "Theta1 for field" "Theta2 for field"
##   .. .. .. ..$ log.posterior     : num -4.5
##   .. .. .. ..$ log.posterior.orig: num -1.82
##   .. .. .. ..$ mean              : num [1:55730] -4.12 -2.03 32.17 27.6 -12.11 ...
##   .. .. .. ..$ improved.mean     : num [1:55730] -4.12 -2.03 32.17 27.6 -12.11 ...
##   .. .. .. ..$ skewness          : logi [1:55730] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:153769] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:153769] 0.04107 0.02083 0.01249 0.00898 0.0377 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:153769] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:153769] 149.9 155.9 96 228.1 28.8 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:116274] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:116274] 0.04107 0.02083 0.01003 0.00898 0.01093 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:25842, 1:3] 0.064318 -0.012464 0.048911 -0.000901 -0.023524 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:25842, 1:2] 92.6 93.1 94.3 14.6 18.7 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:55730, 1:2] 29.64 6.72 -4.12 -2.03 32.17 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:3] -4.74 2.89 -1.24
##   .. .. .. .. ..- attr(*, "names")= chr [1:3] "Log precision for the Gaussian observations" "Theta1 for field" "Theta2 for field"
##   .. .. .. ..$ log.posterior     : num -4.49
##   .. .. .. ..$ log.posterior.orig: num -1.82
##   .. .. .. ..$ mean              : num [1:55730] -5.08 -2.71 33.27 30.7 -11.99 ...
##   .. .. .. ..$ improved.mean     : num [1:55730] -5.08 -2.71 33.27 30.7 -11.99 ...
##   .. .. .. ..$ skewness          : logi [1:55730] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:153769] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:153769] 0.0477 0.024 0.0139 0.0103 0.0387 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:153769] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:153769] 147.6 156.3 88.9 211.7 27.6 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:116274] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:116274] 0.0477 0.024 0.0115 0.0103 0.0126 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:25842, 1:3] 0.062 -0.0125 0.0468 -0.0033 -0.0235 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:25842, 1:2] 92.7 93.2 94.4 14.9 18.8 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:55730, 1:2] 29.74 6.48 -5.08 -2.71 33.27 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:3] -4.73 2.84 -1.56
##   .. .. .. .. ..- attr(*, "names")= chr [1:3] "Log precision for the Gaussian observations" "Theta1 for field" "Theta2 for field"
##   .. .. .. ..$ log.posterior     : num -4.56
##   .. .. .. ..$ log.posterior.orig: num -1.88
##   .. .. .. ..$ mean              : num [1:55730] -3.17 -1.42 30.29 23.68 -11.64 ...
##   .. .. .. ..$ improved.mean     : num [1:55730] -3.17 -1.42 30.29 23.68 -11.64 ...
##   .. .. .. ..$ skewness          : logi [1:55730] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:153769] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:153769] 0.03848 0.01973 0.01195 0.00856 0.03682 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:153769] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:153769] 139.9 143.3 99 225.5 29.6 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:116274] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:116274] 0.03848 0.01973 0.00952 0.00856 0.01034 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:25842, 1:3] 0.06742 -0.008683 0.052755 -0.000211 -0.022998 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:25842, 1:2] 92.2 92.7 93.8 14.5 18.7 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:55730, 1:2] 29.43 7.1 -3.17 -1.42 30.29 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:3] -4.73 2.87 -1.5
##   .. .. .. .. ..- attr(*, "names")= chr [1:3] "Log precision for the Gaussian observations" "Theta1 for field" "Theta2 for field"
##   .. .. .. ..$ log.posterior     : num -4.42
##   .. .. .. ..$ log.posterior.orig: num -1.75
##   .. .. .. ..$ mean              : num [1:55730] -3.56 -1.66 31.18 25.41 -11.92 ...
##   .. .. .. ..$ improved.mean     : num [1:55730] -3.56 -1.66 31.18 25.41 -11.92 ...
##   .. .. .. ..$ skewness          : logi [1:55730] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:153769] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:153769] 0.03868 0.01974 0.01194 0.00854 0.03683 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:153769] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:153769] 147.1 151.6 99.3 231.7 29.6 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:116274] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:116274] 0.03868 0.01974 0.00951 0.00854 0.01035 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:25842, 1:3] 0.06534 -0.010716 0.050395 -0.000236 -0.023066 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:25842, 1:2] 92.4 92.9 94.1 14.5 18.7 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:55730, 1:2] 29.53 6.93 -3.56 -1.66 31.18 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:3] -4.74 2.9 -1.31
##   .. .. .. .. ..- attr(*, "names")= chr [1:3] "Log precision for the Gaussian observations" "Theta1 for field" "Theta2 for field"
##   .. .. .. ..$ log.posterior     : num -4.38
##   .. .. .. ..$ log.posterior.orig: num -1.71
##   .. .. .. ..$ mean              : num [1:55730] -4.68 -2.42 32.91 29.51 -12.12 ...
##   .. .. .. ..$ improved.mean     : num [1:55730] -4.68 -2.42 32.91 29.51 -12.12 ...
##   .. .. .. ..$ skewness          : logi [1:55730] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:153769] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:153769] 0.0438 0.0221 0.013 0.0095 0.0378 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:153769] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:153769] 151.8 159.5 93.3 223.3 28.4 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:116274] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:116274] 0.0438 0.0221 0.0106 0.0095 0.0116 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:25842, 1:3] 0.06228 -0.01286 0.04699 -0.00204 -0.02336 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:25842, 1:2] 92.7 93.2 94.4 14.7 18.8 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:55730, 1:2] 29.71 6.56 -4.68 -2.42 32.91 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:3] -4.75 2.85 -1.5
##   .. .. .. .. ..- attr(*, "names")= chr [1:3] "Log precision for the Gaussian observations" "Theta1 for field" "Theta2 for field"
##   .. .. .. ..$ log.posterior     : num -4.47
##   .. .. .. ..$ log.posterior.orig: num -1.79
##   .. .. .. ..$ mean              : num [1:55730] -3.53 -1.65 30.75 25.04 -11.59 ...
##   .. .. .. ..$ improved.mean     : num [1:55730] -3.53 -1.65 30.75 25.04 -11.59 ...
##   .. .. .. ..$ skewness          : logi [1:55730] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:153769] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:153769] 0.04051 0.02067 0.01234 0.00894 0.03675 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:153769] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:153769] 140.8 145.1 96.9 222.3 29.4 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:116274] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:116274] 0.04051 0.02067 0.00996 0.00894 0.01083 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:25842, 1:3] 0.0657 -0.00865 0.05128 -0.00121 -0.02277 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:25842, 1:2] 92.2 92.7 93.9 14.6 18.7 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:55730, 1:2] 29.48 7.01 -3.53 -1.65 30.75 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:3] -4.76 2.88 -1.31
##   .. .. .. .. ..- attr(*, "names")= chr [1:3] "Log precision for the Gaussian observations" "Theta1 for field" "Theta2 for field"
##   .. .. .. ..$ log.posterior     : num -4.49
##   .. .. .. ..$ log.posterior.orig: num -1.82
##   .. .. .. ..$ mean              : num [1:55730] -4.63 -2.4 32.47 29.1 -11.79 ...
##   .. .. .. ..$ improved.mean     : num [1:55730] -4.63 -2.4 32.47 29.1 -11.79 ...
##   .. .. .. ..$ skewness          : logi [1:55730] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:153769] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:153769] 0.04586 0.02313 0.01348 0.00994 0.03782 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:153769] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:153769] 145.3 152.6 91.2 214.3 28.3 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:116274] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:116274] 0.04586 0.02313 0.01113 0.00994 0.01214 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:25842, 1:3] 0.06256 -0.01089 0.04782 -0.00295 -0.02306 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:25842, 1:2] 92.5 93 94.2 14.8 18.8 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:55730, 1:2] 29.65 6.65 -4.63 -2.4 32.47 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:3] -4.71 2.85 -1.5
##   .. .. .. .. ..- attr(*, "names")= chr [1:3] "Log precision for the Gaussian observations" "Theta1 for field" "Theta2 for field"
##   .. .. .. ..$ log.posterior     : num -4.5
##   .. .. .. ..$ log.posterior.orig: num -1.82
##   .. .. .. ..$ mean              : num [1:55730] -3.57 -1.67 31.11 25.38 -11.85 ...
##   .. .. .. ..$ improved.mean     : num [1:55730] -3.57 -1.67 31.11 25.38 -11.85 ...
##   .. .. .. ..$ skewness          : logi [1:55730] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:153769] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:153769] 0.03993 0.02037 0.01228 0.00881 0.03756 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:153769] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:153769] 142.9 147.3 96.8 225 29 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:116274] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:116274] 0.03993 0.02037 0.00982 0.00881 0.01068 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:25842, 1:3] 0.066683 -0.010496 0.051553 -0.000489 -0.023465 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:25842, 1:2] 92.4 92.9 94 14.5 18.7 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:55730, 1:2] 29.52 6.94 -3.57 -1.67 31.11 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:3] -4.72 2.88 -1.31
##   .. .. .. .. ..- attr(*, "names")= chr [1:3] "Log precision for the Gaussian observations" "Theta1 for field" "Theta2 for field"
##   .. .. .. ..$ log.posterior     : num -4.53
##   .. .. .. ..$ log.posterior.orig: num -1.85
##   .. .. .. ..$ mean              : num [1:55730] -4.68 -2.42 32.83 29.47 -12.05 ...
##   .. .. .. ..$ improved.mean     : num [1:55730] -4.68 -2.42 32.83 29.47 -12.05 ...
##   .. .. .. ..$ skewness          : logi [1:55730] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:153769] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:153769] 0.0452 0.0228 0.0134 0.0098 0.0386 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:153769] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:153769] 147.4 154.9 90.9 216.8 27.8 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:116274] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:116274] 0.0452 0.0228 0.011 0.0098 0.012 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:25842, 1:3] 0.06354 -0.0127 0.04807 -0.00232 -0.02376 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:25842, 1:2] 92.6 93.2 94.4 14.7 18.8 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:55730, 1:2] 29.7 6.58 -4.68 -2.42 32.83 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:3] -4.73 2.83 -1.49
##   .. .. .. .. ..- attr(*, "names")= chr [1:3] "Log precision for the Gaussian observations" "Theta1 for field" "Theta2 for field"
##   .. .. .. ..$ log.posterior     : num -4.61
##   .. .. .. ..$ log.posterior.orig: num -1.94
##   .. .. .. ..$ mean              : num [1:55730] -3.53 -1.66 30.67 25.01 -11.51 ...
##   .. .. .. ..$ improved.mean     : num [1:55730] -3.53 -1.66 30.67 25.01 -11.51 ...
##   .. .. .. ..$ skewness          : logi [1:55730] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:153769] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:153769] 0.04181 0.02133 0.01269 0.00923 0.03749 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:153769] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:153769] 136.8 141 94.4 215.8 28.8 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:116274] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:116274] 0.04181 0.02133 0.01028 0.00923 0.01118 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:25842, 1:3] 0.06706 -0.00839 0.05246 -0.00147 -0.02316 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:25842, 1:2] 92.1 92.7 93.8 14.7 18.7 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:55730, 1:2] 29.46 7.02 -3.53 -1.66 30.67 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:3] -4.74 2.86 -1.31
##   .. .. .. .. ..- attr(*, "names")= chr [1:3] "Log precision for the Gaussian observations" "Theta1 for field" "Theta2 for field"
##   .. .. .. ..$ log.posterior     : num -4.57
##   .. .. .. ..$ log.posterior.orig: num -1.9
##   .. .. .. ..$ mean              : num [1:55730] -4.64 -2.4 32.39 29.06 -11.72 ...
##   .. .. .. ..$ improved.mean     : num [1:55730] -4.64 -2.4 32.39 29.06 -11.72 ...
##   .. .. .. ..$ skewness          : logi [1:55730] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:153769] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:153769] 0.0473 0.0239 0.0139 0.0103 0.0386 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:153769] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:153769] 141.1 148.3 88.8 208.1 27.7 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:116274] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:116274] 0.0473 0.0239 0.0115 0.0103 0.0125 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:25842, 1:3] 0.06384 -0.0107 0.04892 -0.00323 -0.02346 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:25842, 1:2] 92.4 93 94.2 14.9 18.8 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:55730, 1:2] 29.64 6.67 -4.64 -2.4 32.39 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. ..$ max.log.posterior: num -104425
##   ..$ nfunc                             : num 221
##   ..$ warnings                          : chr(0) 
##   ..$ opt.trace                         :List of 3
##   .. ..$ f    : Named num [1:65] 67661771 67436136 26861853 26861853 26802257 ...
##   .. .. ..- attr(*, "names")= chr [1:65] "iter1" "iter2" "iter3" "iter4" ...
##   .. ..$ nfunc: Named int [1:65] 1 2 5 7 8 10 13 15 16 19 ...
##   .. .. ..- attr(*, "names")= chr [1:65] "iter1" "iter2" "iter3" "iter4" ...
##   .. ..$ theta: num [1:65, 1:3] 4 4 3.16 3.16 3.16 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : chr [1:65] "iter1" "iter2" "iter3" "iter4" ...
##   .. .. .. ..$ : chr [1:3] "theta1" "theta2" "theta3"
##   ..$ theta.mode                        : num [1:3] -4.74 2.86 -1.4
##   ..$ linkfunctions                     :List of 2
##   .. ..$ names: chr "identity"
##   .. ..$ link : int [1:25842] 1 1 1 1 1 1 1 1 1 1 ...
##   ..$ family                            : int [1:25842] 1 1 1 1 1 1 1 1 1 1 ...
##  $ dic                        :List of 14
##   ..$ dic              : num 202520
##   ..$ p.eff            : num 6802
##   ..$ mean.deviance    : num 195718
##   ..$ deviance.mean    : num 188916
##   ..$ dic.sat          : num 32618
##   ..$ mean.deviance.sat: num 25816
##   ..$ deviance.mean.sat: num 19016
##   ..$ family.dic       : num 202520
##   ..$ family.dic.sat   : num 32616
##   ..$ family.p.eff     : num 6802
##   ..$ family           : num [1:25842] 1 1 1 1 1 1 1 1 1 1 ...
##   ..$ local.dic        : num [1:25842] 7.62 7.14 7.62 7.01 7.27 ...
##   ..$ local.dic.sat    : num [1:25842] 1.038 0.559 1.039 0.441 0.699 ...
##   ..$ local.p.eff      : num [1:25842] 0.287 0.278 0.385 0.22 0.319 ...
##  $ mode                       :List of 5
##   ..$ theta             : Named num [1:3] -4.74 2.86 -1.4
##   .. ..- attr(*, "names")= chr [1:3] "Log precision for the Gaussian observations" "Theta1 for field" "Theta2 for field"
##   ..$ x                 : num [1:137302] 92.4 93 94.1 14.7 18.7 ...
##   ..$ theta.tags        : chr [1:3] "Log precision for the Gaussian observations" "Theta1 for field" "Theta2 for field"
##   ..$ mode.status       : num 0
##   ..$ log.posterior.mode: num -104425
##  $ joint.hyper                :'data.frame': 15 obs. of  5 variables:
##   ..$ Log precision for the Gaussian observations : num [1:15] -4.74 -4.72 -4.75 -4.75 -4.72 ...
##   ..$ Theta1 for field                            : num [1:15] 2.86 2.85 2.88 2.85 2.88 ...
##   ..$ Theta2 for field                            : num [1:15] -1.4 -1.4 -1.41 -1.4 -1.41 ...
##   ..$ Log posterior density                       : num [1:15] -104436 -104438 -104438 -104438 -104438 ...
##   ..$ Total integration weight (log.dens included): num [1:15] 0.1747 0.0593 0.0596 0.0599 0.059 ...
##  $ nhyper                     : int 3
##  $ version                    :List of 2
##   ..$ inla.call: chr "GITCOMMIT [b51fb385728e90bce98ca92b1d8762a2d13f655c - Sat May 18 13:21:08 2024 +0300]"
##   ..$ R.INLA   : Named chr "24.05.18-2"
##   .. ..- attr(*, "names")= chr "version"
##  $ Q                          : NULL
##  $ graph                      : NULL
##  $ ok                         : logi TRUE
##  $ cpu.intern                 : chr [1:16] "Wall-clock time used on [/tmp/RtmpDF9k7K/file31f20b537c72e1/Model.ini]" "Preparations             :   0.137 seconds" "Approx inference (stage1):  43.503 seconds" "Approx inference (stage2):   0.001 seconds" ...
##  $ cpu.used                   : Named num [1:4] 1.58 79.41 4.53 85.52
##   ..- attr(*, "names")= chr [1:4] "Pre" "Running" "Post" "Total"
##  $ all.hyper                  :List of 4
##   ..$ predictor:List of 1
##   .. ..$ hyper:List of 1
##   .. .. ..$ theta:List of 9
##   .. .. .. ..$ hyperid   : num 53001
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name      : chr "log precision"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name: chr "prec"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial   : num 13.8
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed     : logi TRUE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior     : chr "loggamma"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param     : num [1:2] 1e+00 1e-05
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta  :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta:function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   ..$ family   :List of 1
##   .. ..$ :List of 4
##   .. .. ..$ hyperid: chr "INLA.Data1"
##   .. .. ..$ label  : chr "gaussian"
##   .. .. ..$ hyper  :List of 2
##   .. .. .. ..$ theta1:List of 11
##   .. .. .. .. ..$ hyperid           : num 65001
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ name              : chr "log precision"
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ short.name        : chr "prec"
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ output.name       : chr "Precision for the Gaussian observations"
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ output.name.intern: chr "Log precision for the Gaussian observations"
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ initial           : num 4
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ prior             : chr "loggamma"
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ param             : num [1:2] 1e+00 5e-05
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ theta2:List of 11
##   .. .. .. .. ..$ hyperid           : num 65002
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ name              : chr "log precision offset"
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ short.name        : chr "precoffset"
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ output.name       : chr "NOT IN USE"
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ output.name.intern: chr "NOT IN USE"
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ initial           : num 72.1
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ fixed             : logi TRUE
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ prior             : chr "none"
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. .. ..$ param             : num(0) 
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ link   :List of 1
##   .. .. .. ..$ hyper: list()
##   ..$ linear   :List of 2
##   .. ..$ :List of 3
##   .. .. ..$ label     : chr "Intercept"
##   .. .. ..$ prior.mean: num 0
##   .. .. ..$ prior.prec: num 0.001
##   .. ..$ :List of 3
##   .. .. ..$ label     : chr "SpeedLimit"
##   .. .. ..$ prior.mean: num 0
##   .. .. ..$ prior.prec: num 0.001
##   ..$ random   :List of 3
##   .. ..$ : NULL
##   .. ..$ : NULL
##   .. ..$ :List of 3
##   .. .. ..$ hyperid    : chr "field"
##   .. .. ..$ hyper      : NULL
##   .. .. ..$ group.hyper:List of 1
##   .. .. .. ..$ theta:List of 9
##   .. .. .. .. ..$ hyperid   : num 40001
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ name      : chr "logit correlation"
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ short.name: chr "rho"
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ initial   : num 1
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ fixed     : logi FALSE
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ prior     : chr "normal"
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ param     : num [1:2] 0 0.2
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ to.theta  :function (x, REPLACE.ME.ngroup)  
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. .. ..$ from.theta:function (x, REPLACE.ME.ngroup)  
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##  $ .args                      :List of 30
##   ..$ formula          :Class 'formula'  language BRU.response ~ f(Intercept, model = BRU_Intercept_main_model, ngroup = 1,      nrep = 1, values = BRU_Intercept_v| __truncated__ ...
##   ..$ family           : chr "gaussian"
##   ..$ data             :List of 21
##   .. ..$ BRU.response             : num [1:25842] 99.8 91.7 99.8 14.5 16.1 ...
##   .. ..$ BRU.E                    : num [1:25842] 1 1 1 1 1 1 1 1 1 1 ...
##   .. ..$ BRU.Ntrials              : num [1:25842] 1 1 1 1 1 1 1 1 1 1 ...
##   .. ..$ BRU.weights              : num [1:25842] 1 1 1 1 1 1 1 1 1 1 ...
##   .. ..$ BRU.scale                : num [1:25842] 1 1 1 1 1 1 1 1 1 1 ...
##   .. ..$ BRU.offset               : num [1:25842] 0 0 0 0 0 0 0 0 0 0 ...
##   .. ..$ Intercept                : num [1:55730] 1 NA NA NA NA NA NA NA NA NA ...
##   .. ..$ Intercept.group          : int [1:55730] 1 NA NA NA NA NA NA NA NA NA ...
##   .. ..$ Intercept.repl           : int [1:55730] 1 NA NA NA NA NA NA NA NA NA ...
##   .. ..$ SpeedLimit               : num [1:55730] NA 1 NA NA NA NA NA NA NA NA ...
##   .. ..$ SpeedLimit.group         : int [1:55730] NA 1 NA NA NA NA NA NA NA NA ...
##   .. ..$ SpeedLimit.repl          : int [1:55730] NA 1 NA NA NA NA NA NA NA NA ...
##   .. ..$ field                    : int [1:55730] NA NA 1 2 3 4 5 6 7 8 ...
##   .. ..$ field.group              : int [1:55730] NA NA 1 1 1 1 1 1 1 1 ...
##   .. ..$ field.repl               : int [1:55730] NA NA 1 1 1 1 1 1 1 1 ...
##   .. ..$ BRU_Intercept_main_model : chr "linear"
##   .. ..$ BRU_Intercept_values     : num 1
##   .. ..$ BRU_SpeedLimit_main_model: chr "linear"
##   .. ..$ BRU_SpeedLimit_values    : num 1
##   .. ..$ BRU_field_main_model     :List of 21
##   .. .. ..$ f                   :List of 3
##   .. .. .. ..$ model   : chr "cgeneric"
##   .. .. .. ..$ n       : int 13932
##   .. .. .. ..$ cgeneric:List of 5
##   .. .. .. .. ..$ model: chr "inla_cgeneric_rspde_stat_int_model"
##   .. .. .. .. ..$ shlib: chr "/home/rierasl/R/x86_64-pc-linux-gnu-library/4.4/INLA/bin/linux/64bit/external/rSPDE/librSPDE.so"
##   .. .. .. .. ..$ n    : int 13932
##   .. .. .. .. ..$ debug: logi FALSE
##   .. .. .. .. ..$ data :List of 5
##   .. .. .. .. .. ..$ ints      :List of 5
##   .. .. .. .. .. .. ..$ n          : int 13932
##   .. .. .. .. .. .. ..$ debug      : int 0
##   .. .. .. .. .. .. ..$ m_alpha    : int 1
##   .. .. .. .. .. .. ..$ graph_opt_i: int [1:29068] 0 0 0 0 1 1 1 1 1 2 ...
##   .. .. .. .. .. .. ..$ graph_opt_j: int [1:29068] 0 5681 8781 11463 1 8781 11429 11463 13882 2 ...
##   .. .. .. .. .. ..$ doubles   :List of 4
##   .. .. .. .. .. .. ..$ matrices_less   : num [1:58136] 0.0534 0 0 0 0.0776 ...
##   .. .. .. .. .. .. ..$ theta.prior.mean: num [1:2] 0 1.35
##   .. .. .. .. .. .. ..$ start.theta     : num [1:2] 0 1.35
##   .. .. .. .. .. .. ..$ nu              : num 0.5
##   .. .. .. .. .. ..$ characters:List of 4
##   .. .. .. .. .. .. ..$ model            : chr "inla_cgeneric_rspde_stat_int_model"
##   .. .. .. .. .. .. ..$ shlib            : chr "/home/rierasl/R/x86_64-pc-linux-gnu-library/4.4/INLA/bin/linux/64bit/external/rSPDE/librSPDE.so"
##   .. .. .. .. .. .. ..$ parameterization : chr "matern"
##   .. .. .. .. .. .. ..$ prior.theta.param: chr "theta"
##   .. .. .. .. .. ..$ matrices  :List of 1
##   .. .. .. .. .. .. ..$ theta.prior.prec: num [1:6] 2 2 0.1 0 0 0.1
##   .. .. .. .. .. ..$ smatrices : list()
##   .. .. .. .. ..- attr(*, "class")= chr "inla.cgeneric"
##   .. .. ..$ cgeneric_type       : chr "int_alpha"
##   .. .. ..$ nu                  : num 0.5
##   .. .. ..$ theta.prior.mean    : num [1:2] 0 1.35
##   .. .. ..$ prior.nu            :List of 4
##   .. .. .. ..$ loglocation: num -5e-06
##   .. .. .. ..$ mean       : num 1
##   .. .. .. ..$ prec       : num 3
##   .. .. .. ..$ logscale   : num 1
##   .. .. ..$ theta.prior.prec    : num [1:2, 1:2] 0.1 0 0 0.1
##   .. .. ..$ start.nu            : num 0.5
##   .. .. ..$ integer.nu          : logi TRUE
##   .. .. ..$ start.theta         : num [1:2] 0 1.35
##   .. .. ..$ stationary          : logi TRUE
##   .. .. ..$ rspde.order         : num 2
##   .. .. ..$ dim                 : num 1
##   .. .. ..$ est_nu              : logi FALSE
##   .. .. ..$ nu.upper.bound      : num 2
##   .. .. ..$ prior.nu.dist       : chr "lognormal"
##   .. .. ..$ debug               : logi FALSE
##   .. .. ..$ type.rational.approx: chr "chebfun"
##   .. .. ..$ mesh                :Classes 'metric_graph', 'R6' <metric_graph>
##   Public:
##     add_mesh_observations: function (data = NULL, group = NULL) 
##     add_observations: function (data = NULL, edge_number = "edge_number", distance_on_edge = "distance_on_edge", 
##     build_mesh: function (h = NULL, n = NULL, continuous = TRUE, continuous.outs = FALSE, 
##     buildC: function (alpha = 2, edge_constraint = FALSE) 
##     buildDirectionalConstraints: function (alpha = 1) 
##     C: NULL
##     characteristics: list
##     check_distance_consistency: function () 
##     check_euclidean: function () 
##     clear_observations: function () 
##     clone: function (deep = FALSE) 
##     CoB: NULL
##     compute_characteristics: function (check_euclidean = FALSE) 
##     compute_fem: function (petrov = FALSE) 
##     compute_geodist: function (full = FALSE, obs = TRUE, group = NULL, verbose = 0) 
##     compute_geodist_mesh: function () 
##     compute_geodist_PtE: function (PtE, normalized = TRUE, include_vertices = TRUE, verbose = 0) 
##     compute_laplacian: function (full = FALSE, obs = TRUE, group = NULL, verbose = 0) 
##     compute_PtE_edges: function () 
##     compute_resdist: function (full = FALSE, obs = TRUE, group = NULL, check_euclidean = FALSE, 
##     compute_resdist_mesh: function () 
##     compute_resdist_PtE: function (PtE, normalized = TRUE, include_vertices = FALSE, check_euclidean = FALSE, 
##     coordinates: function (PtE = NULL, XY = NULL, normalized = TRUE) 
##     drop_na: function (...) 
##     E: 1 3 5 7 9 9 10 12 13 14 15 12 18 19 21 20 22 24 26 28 30 ...
##     edge_lengths: 0.0820202978316493 0.13610246403764 0.07378151878521 0.0 ...
##     edges: metric_graph_edges
##     edgeweight_to_data: function (loc = NULL, mesh = FALSE, data_loc = FALSE, weight_col = NULL, 
##     fem_basis: function (PtE) 
##     filter: function (..., .drop_na = FALSE, .drop_all_na = TRUE) 
##     geo_dist: list
##     get_data: function (group = NULL, tibble = TRUE, drop_na = FALSE, drop_all_na = TRUE) 
##     get_degrees: function (which = "degree") 
##     get_edge_lengths: function (unit = NULL) 
##     get_edge_weights: function (data.frame = FALSE, tibble = TRUE) 
##     get_groups: function (get_cols = FALSE) 
##     get_initial_graph: function () 
##     get_locations: function () 
##     get_mesh_locations: function (bru = FALSE, loc = NULL, normalized = TRUE) 
##     get_PtE: function () 
##     get_vertices_incomp_dir: function () 
##     initialize: function (edges = NULL, V = NULL, E = NULL, vertex_unit = NULL, 
##     is_tree: function () 
##     Laplacian: NULL
##     mesh: list
##     mesh_A: function (PtE) 
##     mutate: function (..., .drop_na = FALSE, .drop_all_na = TRUE) 
##     nE: 11104
##     nV: 8781
##     observation_to_vertex: function (tolerance = 1e-15, mesh_warning = TRUE) 
##     plot: function (data = NULL, newdata = NULL, group = 1, plotly = FALSE, 
##     plot_connections: function () 
##     plot_function: function (data = NULL, newdata = NULL, group = 1, X = NULL, plotly = FALSE, 
##     plot_movie: function (X, plotly = TRUE, vertex_size = 5, vertex_color = "black", 
##     print: function () 
##     process_data: function (data = NULL, edge_number = "edge_number", distance_on_edge = "distance_on_edge", 
##     prune_vertices: function (check_weights = TRUE, verbose = FALSE) 
##     PtV: NULL
##     res_dist: NULL
##     select: function (..., .drop_na = FALSE, .drop_all_na = TRUE) 
##     set_edge_weights: function (weights = rep(1, self$nE), kirchhoff_weights = NULL) 
##     summarise: function (..., .include_graph_groups = FALSE, .groups = NULL, 
##     summary: function (messages = FALSE, compute_characteristics = TRUE, check_euclidean = TRUE, 
##     V: -122.40171 -122.40078 -122.44449 -122.44331 -122.41216 - ...
##     vertices: metric_graph_vertices
##     VtEfirst: function () 
##   Private:
##     A: function (group = NULL, obs_to_vert = FALSE, drop_na = FALSE, 
##     add_vertices: function (PtE, tolerance = 1e-10, verbose) 
##     addinfo: FALSE
##     clear_initial_info: function () 
##     compute_degrees: function () 
##     compute_laplacian_PtE: function (PtE, normalized = TRUE, verbose = verbose) 
##     compute_lengths: function (longlat, unit, crs, proj4string, which_longlat, vertex_unit, 
##     connected: TRUE
##     coordinates_multiple_snaps: function (XY, tolerance, verbose = verbose, crs, proj4string, 
##     create_update_vertices: function () 
##     crs: crs
##     data: metric_graph_data, list
##     edge_weights: tbl_df, tbl, data.frame
##     find_edge_edge_points: function (tol, verbose, crs, proj4string, longlat, fact, which_longlat) 
##     find_mesh_bc: function () 
##     get_edge_weights_internal: function (data.frame = FALSE) 
##     group_col: .group
##     initial_edges_added: NULL
##     initial_graph: metric_graph, R6
##     kirchhoff_weights: NULL
##     length_unit: km
##     line_to_vertex: function (tolerance = 0, longlat = FALSE, fact, verbose, crs, 
##     longlat: TRUE
##     merge_close_vertices: function (tolerance, fact) 
##     merge.all.deg2: function () 
##     mesh_merge_deg2: function () 
##     mesh_merge_outs: function () 
##     move_V_first: function () 
##     plot_2d: function (line_width = 0.1, marker_size = 1, vertex_color = "black", 
##     plot_3d: function (line_width = 1, marker_size = 1, vertex_color = "rgb(0,0,0)", 
##     proj4string: NULL
##     prune_warning: FALSE
##     pruned: FALSE
##     PtE_to_mesh: function (PtE) 
##     ref_edges: 1 5502 2 359 3 4077 4 5117 5 7 5419 8 9 10 11 4817 4613  ...
##     remove_circles: function (threshold, verbose, longlat, unit, crs, proj4string, 
##     remove.first.deg2: function (res) 
##     set_first_weights: function (weights = rep(1, self$nE)) 
##     set_petrov_matrices: function () 
##     split_edge: function (Ei, t, tolerance = 0) 
##     temp_PtE: NULL
##     tolerance: list
##     transform: FALSE
##     vertex_unit: degrees
##     which_longlat: sf 
##   .. .. ..$ fem_mesh            :List of 4
##   .. .. .. ..$ c0:Formal class 'dgTMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:13932] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ j       : int [1:13932] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 13932 13932
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:13932] 0.0534 0.0776 0.0408 0.0457 0.0367 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ g1:Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:44204] 0 5681 8781 11463 1 8781 11429 11463 13882 2 ...
##   .. .. .. .. .. ..@ p       : int [1:13933] 0 4 9 12 15 18 23 26 29 34 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 13932 13932
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:44204] 210.6 -161.9 -24.4 -24.4 103.4 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ g2:Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:81554] 0 1 5399 5681 8781 11463 0 1 4450 8781 ...
##   .. .. .. .. .. ..@ p       : int [1:13933] 0 6 13 18 23 28 37 42 47 56 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 13932 13932
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:81554] 1731368 28997 607384 -2117274 -125237 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ g3:Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:124984] 0 1 805 5399 5681 8781 11429 11463 13882 0 ...
##   .. .. .. .. .. ..@ p       : int [1:13933] 0 9 18 25 32 43 56 65 72 85 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 13932 13932
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:124984] 1.84e+10 1.88e+08 -4.79e+08 9.57e+09 -2.57e+10 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. ..$ parameterization    : chr "matern"
##   .. .. ..$ n.spde              : int 13932
##   .. .. ..- attr(*, "class")= chr [1:3] "rspde_metric_graph" "inla_rspde" "inla.cgeneric"
##   .. ..$ BRU_field_values         : int [1:13932] 1 2 3 4 5 6 7 8 9 10 ...
##   ..$ quantiles        : num [1:3] 0.025 0.5 0.975
##   ..$ E                : num [1:25842] 1 1 1 1 1 1 1 1 1 1 ...
##   ..$ offset           : num [1:25842] 0 0 0 0 0 0 0 0 0 0 ...
##   ..$ scale            : num [1:25842] 1 1 1 1 1 1 1 1 1 1 ...
##   ..$ weights          : num [1:25842] 1 1 1 1 1 1 1 1 1 1 ...
##   ..$ Ntrials          : num [1:25842] 1 1 1 1 1 1 1 1 1 1 ...
##   ..$ verbose          : logi FALSE
##   ..$ control.compute  :List of 18
##   .. ..$ openmp.strategy           : chr "default"
##   .. ..$ hyperpar                  : logi TRUE
##   .. ..$ return.marginals          : logi TRUE
##   .. ..$ return.marginals.predictor: logi FALSE
##   .. ..$ dic                       : logi TRUE
##   .. ..$ mlik                      : logi TRUE
##   .. ..$ cpo                       : logi FALSE
##   .. ..$ po                        : logi FALSE
##   .. ..$ waic                      : logi TRUE
##   .. ..$ residuals                 : logi FALSE
##   .. ..$ q                         : logi FALSE
##   .. ..$ config                    : logi TRUE
##   .. ..$ likelihood.info           : logi FALSE
##   .. ..$ smtp                      : NULL
##   .. ..$ graph                     : logi FALSE
##   .. ..$ internal.opt              : NULL
##   .. ..$ save.memory               : NULL
##   .. ..$ control.gcpo              :List of 16
##   .. .. ..$ enable          : logi FALSE
##   .. .. ..$ num.level.sets  : num -1
##   .. .. ..$ size.max        : num 32
##   .. .. ..$ strategy        : chr [1:2] "posterior" "prior"
##   .. .. ..$ groups          : NULL
##   .. .. ..$ selection       : NULL
##   .. .. ..$ group.selection : NULL
##   .. .. ..$ friends         : NULL
##   .. .. ..$ weights         : NULL
##   .. .. ..$ verbose         : logi FALSE
##   .. .. ..$ epsilon         : num 0.005
##   .. .. ..$ prior.diagonal  : num 1e-04
##   .. .. ..$ correct.hyperpar: logi TRUE
##   .. .. ..$ keep            : NULL
##   .. .. ..$ remove          : NULL
##   .. .. ..$ remove.fixed    : logi TRUE
##   .. .. ..- attr(*, "class")= chr [1:2] "ctrl_gcpo" "inla_ctrl_object"
##   .. ..- attr(*, "class")= chr [1:2] "ctrl_compute" "inla_ctrl_object"
##   ..$ control.predictor:List of 12
##   .. ..$ hyper    :List of 1
##   .. .. ..$ theta:List of 9
##   .. .. .. ..$ hyperid   : num 53001
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name      : chr "log precision"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name: chr "prec"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial   : num 13.8
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed     : logi TRUE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior     : chr "loggamma"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param     : num [1:2] 1e+00 1e-05
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta  :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta:function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. ..$ fixed    : NULL
##   .. ..$ prior    : NULL
##   .. ..$ param    : NULL
##   .. ..$ initial  : NULL
##   .. ..$ compute  : logi TRUE
##   .. ..$ cdf      : NULL
##   .. ..$ quantiles: NULL
##   .. ..$ cross    : NULL
##   .. ..$ A        :Formal class 'dgTMatrix' [package "Matrix"] with 6 slots
##   .. .. .. ..@ i       : int [1:103342] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. ..@ j       : int [1:103342] 0 0 0 0 0 0 0 0 0 0 ...
##   .. .. .. ..@ Dim     : int [1:2] 25842 55730
##   .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. ..$ : NULL
##   .. .. .. .. ..$ : NULL
##   .. .. .. ..@ x       : num [1:103342] 1 1 1 1 1 1 1 1 1 1 ...
##   .. .. .. ..@ factors : list()
##   .. ..$ precision: num 3269017
##   .. ..$ link     : NULL
##   .. ..- attr(*, "class")= chr [1:2] "ctrl_predictor" "inla_ctrl_object"
##   ..$ control.family   :List of 1
##   .. ..$ :List of 17
##   .. .. ..$ dummy            : num 0
##   .. .. ..$ hyper            :List of 2
##   .. .. .. ..$ theta1:List of 11
##   .. .. .. .. ..$ hyperid           : num 65001
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ name              : chr "log precision"
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ short.name        : chr "prec"
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ output.name       : chr "Precision for the Gaussian observations"
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ output.name.intern: chr "Log precision for the Gaussian observations"
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ initial           : num 4
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ prior             : chr "loggamma"
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ param             : num [1:2] 1e+00 5e-05
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ theta2:List of 11
##   .. .. .. .. ..$ hyperid           : num 65002
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ name              : chr "log precision offset"
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ short.name        : chr "precoffset"
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ output.name       : chr "NOT IN USE"
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ output.name.intern: chr "NOT IN USE"
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ initial           : num 72.1
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ fixed             : logi TRUE
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ prior             : chr "none"
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. .. ..$ param             : num(0) 
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ initial          : NULL
##   .. .. ..$ prior            : NULL
##   .. .. ..$ param            : NULL
##   .. .. ..$ fixed            : NULL
##   .. .. ..$ link             : chr "default"
##   .. .. ..$ sn.shape.max     : num 5
##   .. .. ..$ gev.scale.xi     : num 0.1
##   .. .. ..$ control.bgev     : NULL
##   .. .. ..$ cenpoisson.I     : int [1:2] -1 -1
##   .. .. ..$ beta.censor.value: num 0
##   .. .. ..$ variant          : int 0
##   .. .. ..$ control.mix      : NULL
##   .. .. ..$ control.pom      : NULL
##   .. .. ..$ control.link     :List of 10
##   .. .. .. ..$ model   : chr "default"
##   .. .. .. ..$ order   : NULL
##   .. .. .. ..$ variant : NULL
##   .. .. .. ..$ hyper   : list()
##   .. .. .. ..$ quantile: NULL
##   .. .. .. ..$ a       : num 1
##   .. .. .. ..$ initial : NULL
##   .. .. .. ..$ fixed   : NULL
##   .. .. .. ..$ prior   : NULL
##   .. .. .. ..$ param   : NULL
##   .. .. .. ..- attr(*, "class")= chr [1:2] "ctrl_link" "inla_ctrl_object"
##   .. .. ..$ link.simple      : chr "default"
##   .. .. ..- attr(*, "class")= chr [1:2] "ctrl_family" "inla_ctrl_object"
##   ..$ control.inla     :List of 56
##   .. ..$ strategy                          : chr "auto"
##   .. ..$ int.strategy                      : chr "auto"
##   .. ..$ int.design                        : NULL
##   .. ..$ interpolator                      : chr "auto"
##   .. ..$ fast                              : logi TRUE
##   .. ..$ linear.correction                 : NULL
##   .. ..$ h                                 : num 0.005
##   .. ..$ dz                                : num 0.75
##   .. ..$ diff.logdens                      : num 6
##   .. ..$ print.joint.hyper                 : logi TRUE
##   .. ..$ force.diagonal                    : logi FALSE
##   .. ..$ skip.configurations               : logi TRUE
##   .. ..$ mode.known                        : logi FALSE
##   .. ..$ adjust.weights                    : logi TRUE
##   .. ..$ tolerance                         : num 0.005
##   .. ..$ tolerance.f                       : NULL
##   .. ..$ tolerance.g                       : NULL
##   .. ..$ tolerance.x                       : NULL
##   .. ..$ tolerance.step                    : NULL
##   .. ..$ restart                           : int 0
##   .. ..$ optimiser                         : chr "default"
##   .. ..$ verbose                           : NULL
##   .. ..$ reordering                        : chr "auto"
##   .. ..$ cpo.diff                          : NULL
##   .. ..$ npoints                           : num 9
##   .. ..$ cutoff                            : num 1e-04
##   .. ..$ adapt.hessian.mode                : NULL
##   .. ..$ adapt.hessian.max.trials          : NULL
##   .. ..$ adapt.hessian.scale               : NULL
##   .. ..$ adaptive.max                      : int 25
##   .. ..$ huge                              : logi FALSE
##   .. ..$ step.len                          : num 0
##   .. ..$ stencil                           : int 5
##   .. ..$ lincomb.derived.correlation.matrix: logi FALSE
##   .. ..$ diagonal                          : num 0
##   .. ..$ numint.maxfeval                   : num 1e+05
##   .. ..$ numint.relerr                     : num 1e-05
##   .. ..$ numint.abserr                     : num 1e-06
##   .. ..$ cmin                              : num -Inf
##   .. ..$ b.strategy                        : chr "keep"
##   .. ..$ step.factor                       : num -0.1
##   .. ..$ global.node.factor                : num 2
##   .. ..$ global.node.degree                : int 2147483647
##   .. ..$ stupid.search                     : logi TRUE
##   .. ..$ stupid.search.max.iter            : int 1000
##   .. ..$ stupid.search.factor              : num 1.05
##   .. ..$ control.vb                        :List of 8
##   .. .. ..$ enable          : chr "auto"
##   .. .. ..$ strategy        : chr [1:2] "mean" "variance"
##   .. .. ..$ verbose         : logi TRUE
##   .. .. ..$ iter.max        : num 25
##   .. .. ..$ emergency       : num 25
##   .. .. ..$ f.enable.limit  : num [1:4] 30 25 1024 768
##   .. .. ..$ hessian.update  : num 2
##   .. .. ..$ hessian.strategy: chr [1:4] "default" "full" "partial" "diagonal"
##   .. .. ..- attr(*, "class")= chr [1:2] "ctrl_vb" "inla_ctrl_object"
##   .. ..$ num.gradient                      : chr "central"
##   .. ..$ num.hessian                       : chr "central"
##   .. ..$ optimise.strategy                 : chr "smart"
##   .. ..$ use.directions                    : logi TRUE
##   .. ..$ constr.marginal.diagonal          : num 1.49e-08
##   .. ..$ improved.simplified.laplace       : logi FALSE
##   .. ..$ parallel.linesearch               : logi FALSE
##   .. ..$ compute.initial.values            : logi TRUE
##   .. ..$ hessian.correct.skewness.only     : logi TRUE
##   .. ..- attr(*, "class")= chr [1:2] "ctrl_inla" "inla_ctrl_object"
##   ..$ control.fixed    :List of 10
##   .. ..$ cdf                   : NULL
##   .. ..$ quantiles             : NULL
##   .. ..$ expand.factor.strategy: chr "inla"
##   .. ..$ mean                  : num 0
##   .. ..$ mean.intercept        : num 0
##   .. ..$ prec                  : num 0.001
##   .. ..$ prec.intercept        : num 0
##   .. ..$ compute               : logi TRUE
##   .. ..$ correlation.matrix    : logi FALSE
##   .. ..$ remove.names          : NULL
##   .. ..- attr(*, "class")= chr [1:2] "ctrl_fixed" "inla_ctrl_object"
##   ..$ control.mode     :List of 5
##   .. ..$ result : NULL
##   .. ..$ theta  : NULL
##   .. ..$ x      : NULL
##   .. ..$ restart: logi FALSE
##   .. ..$ fixed  : logi FALSE
##   .. ..- attr(*, "class")= chr [1:2] "ctrl_mode" "inla_ctrl_object"
##   ..$ control.expert   :List of 6
##   .. ..$ cpo.manual            : logi FALSE
##   .. ..$ cpo.idx               : num -1
##   .. ..$ disable.gaussian.check: logi FALSE
##   .. ..$ jp                    : NULL
##   .. ..$ dot.product.gain      : logi FALSE
##   .. ..$ globalconstr          :List of 2
##   .. .. ..$ A: NULL
##   .. .. ..$ e: NULL
##   .. ..- attr(*, "class")= chr [1:2] "ctrl_expert" "inla_ctrl_object"
##   ..$ control.lincomb  :List of 1
##   .. ..$ verbose: logi FALSE
##   .. ..- attr(*, "class")= chr [1:2] "ctrl_lincomb" "inla_ctrl_object"
##   ..$ control.update   :List of 1
##   .. ..$ result: NULL
##   .. ..- attr(*, "class")= chr [1:2] "ctrl_update" "inla_ctrl_object"
##   ..$ control.lp.scale :List of 1
##   .. ..$ hyper:List of 100
##   .. .. ..$ theta1  :List of 11
##   .. .. .. ..$ hyperid           : num 103001
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta1"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b1"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[1] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[1] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta2  :List of 11
##   .. .. .. ..$ hyperid           : num 103002
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta2"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b2"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[2] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[2] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta3  :List of 11
##   .. .. .. ..$ hyperid           : num 103003
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta3"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b3"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[3] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[3] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta4  :List of 11
##   .. .. .. ..$ hyperid           : num 103004
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta4"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b4"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[4] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[4] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta5  :List of 11
##   .. .. .. ..$ hyperid           : num 103005
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta5"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b5"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[5] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[5] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta6  :List of 11
##   .. .. .. ..$ hyperid           : num 103006
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta6"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b6"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[6] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[6] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta7  :List of 11
##   .. .. .. ..$ hyperid           : num 103007
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta7"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b7"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[7] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[7] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta8  :List of 11
##   .. .. .. ..$ hyperid           : num 103008
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta8"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b8"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[8] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[8] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta9  :List of 11
##   .. .. .. ..$ hyperid           : num 103009
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta9"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b9"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[9] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[9] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta10 :List of 11
##   .. .. .. ..$ hyperid           : num 103010
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta10"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b10"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[10] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[10] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta11 :List of 11
##   .. .. .. ..$ hyperid           : num 103011
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta11"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b11"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[11] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[11] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta12 :List of 11
##   .. .. .. ..$ hyperid           : num 103012
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta12"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b12"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[12] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[12] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta13 :List of 11
##   .. .. .. ..$ hyperid           : num 103013
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta13"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b13"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[13] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[13] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta14 :List of 11
##   .. .. .. ..$ hyperid           : num 103014
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta14"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b14"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[14] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[14] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta15 :List of 11
##   .. .. .. ..$ hyperid           : num 103015
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta15"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b15"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[15] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[15] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta16 :List of 11
##   .. .. .. ..$ hyperid           : num 103016
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta16"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b16"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[16] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[16] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta17 :List of 11
##   .. .. .. ..$ hyperid           : num 103017
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta17"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b17"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[17] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[17] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta18 :List of 11
##   .. .. .. ..$ hyperid           : num 103018
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta18"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b18"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[18] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[18] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta19 :List of 11
##   .. .. .. ..$ hyperid           : num 103019
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta19"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b19"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[19] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[19] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta20 :List of 11
##   .. .. .. ..$ hyperid           : num 103020
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta20"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b20"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[20] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[20] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta21 :List of 11
##   .. .. .. ..$ hyperid           : num 103021
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta21"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b21"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[21] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[21] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta22 :List of 11
##   .. .. .. ..$ hyperid           : num 103022
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta22"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b22"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[22] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[22] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta23 :List of 11
##   .. .. .. ..$ hyperid           : num 103023
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta23"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b23"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[23] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[23] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta24 :List of 11
##   .. .. .. ..$ hyperid           : num 103024
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta24"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b24"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[24] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[24] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta25 :List of 11
##   .. .. .. ..$ hyperid           : num 103025
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta25"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b25"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[25] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[25] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta26 :List of 11
##   .. .. .. ..$ hyperid           : num 103026
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta26"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b26"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[26] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[26] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta27 :List of 11
##   .. .. .. ..$ hyperid           : num 103027
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta27"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b27"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[27] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[27] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta28 :List of 11
##   .. .. .. ..$ hyperid           : num 103028
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta28"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b28"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[28] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[28] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta29 :List of 11
##   .. .. .. ..$ hyperid           : num 103029
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta29"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b29"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[29] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[29] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta30 :List of 11
##   .. .. .. ..$ hyperid           : num 103030
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta30"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b30"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[30] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[30] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta31 :List of 11
##   .. .. .. ..$ hyperid           : num 103031
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta31"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b31"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[31] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[31] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta32 :List of 11
##   .. .. .. ..$ hyperid           : num 103032
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta32"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b32"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[32] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[32] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta33 :List of 11
##   .. .. .. ..$ hyperid           : num 103033
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta33"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b33"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[33] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[33] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta34 :List of 11
##   .. .. .. ..$ hyperid           : num 103034
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta34"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b34"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[34] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[34] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta35 :List of 11
##   .. .. .. ..$ hyperid           : num 103035
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta35"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b35"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[35] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[35] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta36 :List of 11
##   .. .. .. ..$ hyperid           : num 103036
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta36"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b36"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[36] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[36] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta37 :List of 11
##   .. .. .. ..$ hyperid           : num 103037
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta37"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b37"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[37] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[37] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta38 :List of 11
##   .. .. .. ..$ hyperid           : num 103038
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta38"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b38"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[38] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[38] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta39 :List of 11
##   .. .. .. ..$ hyperid           : num 103039
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta39"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b39"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[39] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[39] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta40 :List of 11
##   .. .. .. ..$ hyperid           : num 103040
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta40"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b40"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[40] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[40] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta41 :List of 11
##   .. .. .. ..$ hyperid           : num 103041
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta41"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b41"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[41] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[41] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta42 :List of 11
##   .. .. .. ..$ hyperid           : num 103042
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta42"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b42"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[42] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[42] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta43 :List of 11
##   .. .. .. ..$ hyperid           : num 103043
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta43"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b43"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[43] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[43] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta44 :List of 11
##   .. .. .. ..$ hyperid           : num 103044
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta44"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b44"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[44] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[44] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta45 :List of 11
##   .. .. .. ..$ hyperid           : num 103045
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta45"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b45"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[45] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[45] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta46 :List of 11
##   .. .. .. ..$ hyperid           : num 103046
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta46"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b46"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[46] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[46] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta47 :List of 11
##   .. .. .. ..$ hyperid           : num 103047
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta47"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b47"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[47] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[47] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta48 :List of 11
##   .. .. .. ..$ hyperid           : num 103048
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta48"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b48"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[48] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[48] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta49 :List of 11
##   .. .. .. ..$ hyperid           : num 103049
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta49"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b49"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[49] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[49] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta50 :List of 11
##   .. .. .. ..$ hyperid           : num 103050
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta50"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b50"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[50] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[50] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta51 :List of 11
##   .. .. .. ..$ hyperid           : num 103051
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta51"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b51"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[51] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[51] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta52 :List of 11
##   .. .. .. ..$ hyperid           : num 103052
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta52"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b52"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[52] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[52] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta53 :List of 11
##   .. .. .. ..$ hyperid           : num 103053
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta53"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b53"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[53] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[53] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta54 :List of 11
##   .. .. .. ..$ hyperid           : num 103054
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta54"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b54"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[54] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[54] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta55 :List of 11
##   .. .. .. ..$ hyperid           : num 103055
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta55"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b55"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[55] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[55] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta56 :List of 11
##   .. .. .. ..$ hyperid           : num 103056
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta56"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b56"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[56] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[56] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta57 :List of 11
##   .. .. .. ..$ hyperid           : num 103057
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta57"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b57"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[57] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[57] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta58 :List of 11
##   .. .. .. ..$ hyperid           : num 103058
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta58"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b58"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[58] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[58] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta59 :List of 11
##   .. .. .. ..$ hyperid           : num 103059
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta59"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b59"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[59] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[59] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta60 :List of 11
##   .. .. .. ..$ hyperid           : num 103060
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta60"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b60"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[60] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[60] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta61 :List of 11
##   .. .. .. ..$ hyperid           : num 103061
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta61"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b61"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[61] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[61] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta62 :List of 11
##   .. .. .. ..$ hyperid           : num 103062
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta62"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b62"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[62] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[62] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta63 :List of 11
##   .. .. .. ..$ hyperid           : num 103063
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta63"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b63"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[63] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[63] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta64 :List of 11
##   .. .. .. ..$ hyperid           : num 103064
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta64"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b64"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[64] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[64] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta65 :List of 11
##   .. .. .. ..$ hyperid           : num 103065
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta65"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b65"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[65] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[65] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta66 :List of 11
##   .. .. .. ..$ hyperid           : num 103066
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta66"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b66"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[66] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[66] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta67 :List of 11
##   .. .. .. ..$ hyperid           : num 103067
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta67"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b67"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[67] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[67] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta68 :List of 11
##   .. .. .. ..$ hyperid           : num 103068
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta68"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b68"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[68] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[68] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta69 :List of 11
##   .. .. .. ..$ hyperid           : num 103069
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta69"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b69"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[69] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[69] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta70 :List of 11
##   .. .. .. ..$ hyperid           : num 103070
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta70"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b70"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[70] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[70] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta71 :List of 11
##   .. .. .. ..$ hyperid           : num 103071
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta71"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b71"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[71] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[71] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta72 :List of 11
##   .. .. .. ..$ hyperid           : num 103072
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta72"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b72"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[72] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[72] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta73 :List of 11
##   .. .. .. ..$ hyperid           : num 103073
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta73"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b73"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[73] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[73] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta74 :List of 11
##   .. .. .. ..$ hyperid           : num 103074
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta74"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b74"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[74] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[74] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta75 :List of 11
##   .. .. .. ..$ hyperid           : num 103075
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta75"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b75"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[75] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[75] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta76 :List of 11
##   .. .. .. ..$ hyperid           : num 103076
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta76"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b76"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[76] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[76] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta77 :List of 11
##   .. .. .. ..$ hyperid           : num 103077
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta77"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b77"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[77] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[77] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta78 :List of 11
##   .. .. .. ..$ hyperid           : num 103078
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta78"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b78"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[78] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[78] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta79 :List of 11
##   .. .. .. ..$ hyperid           : num 103079
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta79"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b79"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[79] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[79] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta80 :List of 11
##   .. .. .. ..$ hyperid           : num 103080
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta80"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b80"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[80] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[80] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta81 :List of 11
##   .. .. .. ..$ hyperid           : num 103081
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta81"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b81"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[81] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[81] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta82 :List of 11
##   .. .. .. ..$ hyperid           : num 103082
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta82"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b82"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[82] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[82] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta83 :List of 11
##   .. .. .. ..$ hyperid           : num 103083
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta83"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b83"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[83] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[83] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta84 :List of 11
##   .. .. .. ..$ hyperid           : num 103084
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta84"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b84"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[84] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[84] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta85 :List of 11
##   .. .. .. ..$ hyperid           : num 103085
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta85"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b85"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[85] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[85] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta86 :List of 11
##   .. .. .. ..$ hyperid           : num 103086
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta86"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b86"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[86] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[86] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta87 :List of 11
##   .. .. .. ..$ hyperid           : num 103087
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta87"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b87"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[87] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[87] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta88 :List of 11
##   .. .. .. ..$ hyperid           : num 103088
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta88"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b88"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[88] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[88] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta89 :List of 11
##   .. .. .. ..$ hyperid           : num 103089
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta89"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b89"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[89] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[89] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta90 :List of 11
##   .. .. .. ..$ hyperid           : num 103090
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta90"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b90"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[90] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[90] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta91 :List of 11
##   .. .. .. ..$ hyperid           : num 103091
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta91"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b91"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[91] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[91] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta92 :List of 11
##   .. .. .. ..$ hyperid           : num 103092
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta92"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b92"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[92] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[92] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta93 :List of 11
##   .. .. .. ..$ hyperid           : num 103093
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta93"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b93"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[93] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[93] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta94 :List of 11
##   .. .. .. ..$ hyperid           : num 103094
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta94"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b94"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[94] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[94] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta95 :List of 11
##   .. .. .. ..$ hyperid           : num 103095
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta95"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b95"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[95] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[95] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta96 :List of 11
##   .. .. .. ..$ hyperid           : num 103096
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta96"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b96"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[96] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[96] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta97 :List of 11
##   .. .. .. ..$ hyperid           : num 103097
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta97"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b97"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[97] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[97] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta98 :List of 11
##   .. .. .. ..$ hyperid           : num 103098
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta98"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b98"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[98] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[98] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta99 :List of 11
##   .. .. .. ..$ hyperid           : num 103099
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta99"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b99"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[99] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[99] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. [list output truncated]
##   .. ..- attr(*, "class")= chr [1:2] "ctrl_lp_scale" "inla_ctrl_object"
##   ..$ control.pardiso  :List of 4
##   .. ..$ verbose            : logi FALSE
##   .. ..$ debug              : logi FALSE
##   .. ..$ parallel.reordering: logi TRUE
##   .. ..$ nrhs               : num -1
##   .. ..- attr(*, "class")= chr [1:2] "ctrl_pardiso" "inla_ctrl_object"
##   ..$ only.hyperparam  : logi FALSE
##   ..$ inla.call        : chr "/home/rierasl/R/x86_64-pc-linux-gnu-library/4.4/INLA/bin/linux/64bit/inla.mkl.run"
##   ..$ num.threads      : chr "24:1"
##   ..$ keep             : logi FALSE
##   ..$ silent           : logi TRUE
##   ..$ inla.mode        : chr "compact"
##   ..$ safe             : logi TRUE
##   ..$ debug            : logi FALSE
##   ..$ .parent.frame    :<environment: R_GlobalEnv> 
##  $ call                       : chr [1:14] "inla.core(formula = formula, family = family, contrasts = contrasts, " "    data = data, quantiles = quantiles, E = E, offset = offset, " "    scale = scale, weights = weights, Ntrials = Ntrials, strata = strata, " "    lp.scale = lp.scale, link.covariates = link.covariates, verbose = verbose, " ...
##  $ model.matrix               :Formal class 'dsparseModelMatrix' [package "MatrixModels"] with 8 slots
##   .. ..@ i        : int(0) 
##   .. ..@ p        : int 0
##   .. ..@ Dim      : int [1:2] 55730 0
##   .. ..@ Dimnames :List of 2
##   .. .. ..$ : chr [1:55730] "1" "2" "3" "4" ...
##   .. .. ..$ : NULL
##   .. ..@ x        : num(0) 
##   .. ..@ factors  : list()
##   .. ..@ assign   : int(0) 
##   .. ..@ contrasts: Named list()
##  $ bru_iinla                  :List of 5
##   ..$ log       :Class 'bru_log'  hidden list of 2
##   .. ..$ log      : chr [1:7] "2024-05-27 23:44:07.750362: iinla: Evaluate component inputs" "2024-05-27 23:44:07.877166: iinla: Evaluate component linearisations" "2024-05-27 23:44:19.414664: iinla: Evaluate component simplifications" "2024-05-27 23:44:30.710423: iinla: Evaluate predictor linearisation" ...
##   .. ..$ bookmarks: Named int 0
##   .. .. ..- attr(*, "names")= chr "iinla"
##   ..$ states    :List of 1
##   .. ..$ :List of 3
##   .. .. ..$ Intercept : num 0
##   .. .. ..$ SpeedLimit: num 0
##   .. .. ..$ field     : num [1:55728] 0 0 0 0 0 0 0 0 0 0 ...
##   ..$ inla_stack:List of 3
##   .. ..$ A      :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. ..@ i       : int [1:103342] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. ..@ p       : int [1:55731] 0 25842 51684 51684 51684 51686 51686 51694 51700 51700 ...
##   .. .. .. ..@ Dim     : int [1:2] 25842 55730
##   .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. ..$ : NULL
##   .. .. .. .. ..$ : NULL
##   .. .. .. ..@ x       : num [1:103342] 1 1 1 1 1 1 1 1 1 1 ...
##   .. .. .. ..@ factors : list()
##   .. ..$ data   :List of 5
##   .. .. ..$ data :'data.frame':  25842 obs. of  6 variables:
##   .. .. .. ..$ BRU.response: num [1:25842] 99.8 91.7 99.8 14.5 16.1 ...
##   .. .. .. ..$ BRU.E       : num [1:25842] 1 1 1 1 1 1 1 1 1 1 ...
##   .. .. .. ..$ BRU.Ntrials : num [1:25842] 1 1 1 1 1 1 1 1 1 1 ...
##   .. .. .. ..$ BRU.weights : num [1:25842] 1 1 1 1 1 1 1 1 1 1 ...
##   .. .. .. ..$ BRU.scale   : num [1:25842] 1 1 1 1 1 1 1 1 1 1 ...
##   .. .. .. ..$ BRU.offset  : num [1:25842] 0 0 0 0 0 0 0 0 0 0 ...
##   .. .. ..$ nrow : int 25842
##   .. .. ..$ ncol : Named int [1:6] 1 1 1 1 1 1
##   .. .. .. ..- attr(*, "names")= chr [1:6] "BRU.response" "BRU.E" "BRU.Ntrials" "BRU.weights" ...
##   .. .. ..$ names:List of 6
##   .. .. .. ..$ BRU.response: chr "BRU.response"
##   .. .. .. ..$ BRU.E       : chr "BRU.E"
##   .. .. .. ..$ BRU.Ntrials : chr "BRU.Ntrials"
##   .. .. .. ..$ BRU.weights : chr "BRU.weights"
##   .. .. .. ..$ BRU.scale   : chr "BRU.scale"
##   .. .. .. ..$ BRU.offset  : chr "BRU.offset"
##   .. .. ..$ index:List of 1
##   .. .. .. ..$ : num [1:25842] 1 2 3 4 5 6 7 8 9 10 ...
##   .. .. ..- attr(*, "class")= chr "inla.data.stack.info"
##   .. ..$ effects:List of 5
##   .. .. ..$ data :'data.frame':  55730 obs. of  9 variables:
##   .. .. .. ..$ Intercept       : num [1:55730] 1 NA NA NA NA NA NA NA NA NA ...
##   .. .. .. ..$ Intercept.group : int [1:55730] 1 NA NA NA NA NA NA NA NA NA ...
##   .. .. .. ..$ Intercept.repl  : int [1:55730] 1 NA NA NA NA NA NA NA NA NA ...
##   .. .. .. ..$ SpeedLimit      : num [1:55730] NA 1 NA NA NA NA NA NA NA NA ...
##   .. .. .. ..$ SpeedLimit.group: int [1:55730] NA 1 NA NA NA NA NA NA NA NA ...
##   .. .. .. ..$ SpeedLimit.repl : int [1:55730] NA 1 NA NA NA NA NA NA NA NA ...
##   .. .. .. ..$ field           : int [1:55730] NA NA 1 2 3 4 5 6 7 8 ...
##   .. .. .. ..$ field.group     : int [1:55730] NA NA 1 1 1 1 1 1 1 1 ...
##   .. .. .. ..$ field.repl      : int [1:55730] NA NA 1 1 1 1 1 1 1 1 ...
##   .. .. ..$ nrow : int 55730
##   .. .. ..$ ncol : Named int [1:9] 1 1 1 1 1 1 1 1 1
##   .. .. .. ..- attr(*, "names")= chr [1:9] "Intercept" "Intercept.group" "Intercept.repl" "SpeedLimit" ...
##   .. .. ..$ names:List of 9
##   .. .. .. ..$ Intercept       : chr "Intercept"
##   .. .. .. ..$ Intercept.group : chr "Intercept.group"
##   .. .. .. ..$ Intercept.repl  : chr "Intercept.repl"
##   .. .. .. ..$ SpeedLimit      : chr "SpeedLimit"
##   .. .. .. ..$ SpeedLimit.group: chr "SpeedLimit.group"
##   .. .. .. ..$ SpeedLimit.repl : chr "SpeedLimit.repl"
##   .. .. .. ..$ field           : chr "field"
##   .. .. .. ..$ field.group     : chr "field.group"
##   .. .. .. ..$ field.repl      : chr "field.repl"
##   .. .. ..$ index:List of 3
##   .. .. .. ..$ : int 1
##   .. .. .. ..$ : int 2
##   .. .. .. ..$ : int [1:55728] 3 4 5 6 7 8 9 10 11 12 ...
##   .. .. ..- attr(*, "class")= chr "inla.data.stack.info"
##   .. ..- attr(*, "class")= chr "inla.data.stack"
##   ..$ track     :'data.frame':   111464 obs. of  6 variables:
##   .. ..$ effect           : chr [1:111464] "Intercept" "SpeedLimit" "field" "field" ...
##   .. ..$ index            : num [1:111464] 1 1 1 2 3 4 5 6 7 8 ...
##   .. ..$ iteration        : num [1:111464] 0 0 0 0 0 0 0 0 0 0 ...
##   .. ..$ mode             : num [1:111464] NA NA NA NA NA NA NA NA NA NA ...
##   .. ..$ sd               : num [1:111464] NA NA NA NA NA NA NA NA NA NA ...
##   .. ..$ new_linearisation: num [1:111464] 0 0 0 0 0 0 0 0 0 0 ...
##   ..$ timings   :'data.frame':   2 obs. of  5 variables:
##   .. ..$ Task     : chr [1:2] "Preprocess" "Run inla()"
##   .. ..$ Iteration: num [1:2] 1 1
##   .. ..$ Time     : 'difftime' num [1:2] 81.118 618.64
##   .. .. ..- attr(*, "units")= chr "secs"
##   .. ..$ System   : 'difftime' num [1:2] 0.962 0.206
##   .. .. ..- attr(*, "units")= chr "secs"
##   .. ..$ Elapsed  : 'difftime' num [1:2] 91.643 85.843
##   .. .. ..- attr(*, "units")= chr "secs"
##  $ bru_timings                :'data.frame': 3 obs. of  5 variables:
##   ..$ Task     : chr [1:3] "Preprocess" "Preprocess" "Run inla()"
##   ..$ Iteration: num [1:3] 0 1 1
##   ..$ Time     : 'difftime' num [1:3] 0.137999999999991 81.118 618.64
##   .. ..- attr(*, "units")= chr "secs"
##   ..$ System   : 'difftime' num [1:3] 0 0.962 0.206
##   .. ..- attr(*, "units")= chr "secs"
##   ..$ Elapsed  : 'difftime' num [1:3] 0.203999999999994 91.643 85.843
##   .. ..- attr(*, "units")= chr "secs"
##  $ bru_info                   :List of 6
##   ..$ method         : chr "bru"
##   ..$ model          :List of 2
##   .. ..$ effects:List of 3
##   .. .. ..$ Intercept :List of 12
##   .. .. .. ..$ label       : chr "Intercept"
##   .. .. .. ..$ inla.formula:Class 'formula'  language ~. + f(Intercept, model = BRU_Intercept_main_model, ngroup = 1, nrep = 1,      values = BRU_Intercept_values)
##   .. .. .. .. .. ..- attr(*, ".Environment")=<environment: R_GlobalEnv> 
##   .. .. .. ..$ main        :List of 8
##   .. .. .. .. ..$ input         :List of 4
##   .. .. .. .. .. ..$ input   : num 1
##   .. .. .. .. .. ..$ label   : chr "Intercept"
##   .. .. .. .. .. ..$ layer   : NULL
##   .. .. .. .. .. ..$ selector: NULL
##   .. .. .. .. .. ..- attr(*, "class")= chr [1:2] "bru_input" "list"
##   .. .. .. .. ..$ mapper        : list()
##   .. .. .. .. .. ..- attr(*, "class")= chr [1:3] "bru_mapper_linear" "bru_mapper" "list"
##   .. .. .. .. ..$ model         : chr "linear"
##   .. .. .. .. ..$ type          : chr "linear"
##   .. .. .. .. ..$ n             : int 1
##   .. .. .. .. ..$ values        : num 1
##   .. .. .. .. ..$ season.length : NULL
##   .. .. .. .. ..$ factor_mapping: NULL
##   .. .. .. .. ..- attr(*, "class")= chr [1:2] "bru_subcomponent" "list"
##   .. .. .. ..$ group       :List of 8
##   .. .. .. .. ..$ input         :List of 4
##   .. .. .. .. .. ..$ input   : int 1
##   .. .. .. .. .. ..$ label   : chr "Intercept.group"
##   .. .. .. .. .. ..$ layer   : NULL
##   .. .. .. .. .. ..$ selector: NULL
##   .. .. .. .. .. ..- attr(*, "class")= chr [1:2] "bru_input" "list"
##   .. .. .. .. ..$ mapper        :List of 1
##   .. .. .. .. .. ..$ n: num 1
##   .. .. .. .. .. ..- attr(*, "class")= chr [1:3] "bru_mapper_index" "bru_mapper" "list"
##   .. .. .. .. ..$ model         : chr "exchangeable"
##   .. .. .. .. ..$ type          : chr "exchangeable"
##   .. .. .. .. ..$ n             : num 1
##   .. .. .. .. ..$ values        : int 1
##   .. .. .. .. ..$ season.length : NULL
##   .. .. .. .. ..$ factor_mapping: NULL
##   .. .. .. .. ..- attr(*, "class")= chr [1:2] "bru_subcomponent" "list"
##   .. .. .. ..$ replicate   :List of 8
##   .. .. .. .. ..$ input         :List of 4
##   .. .. .. .. .. ..$ input   : int 1
##   .. .. .. .. .. ..$ label   : chr "Intercept.repl"
##   .. .. .. .. .. ..$ layer   : NULL
##   .. .. .. .. .. ..$ selector: NULL
##   .. .. .. .. .. ..- attr(*, "class")= chr [1:2] "bru_input" "list"
##   .. .. .. .. ..$ mapper        :List of 1
##   .. .. .. .. .. ..$ n: num 1
##   .. .. .. .. .. ..- attr(*, "class")= chr [1:3] "bru_mapper_index" "bru_mapper" "list"
##   .. .. .. .. ..$ model         : chr "iid"
##   .. .. .. .. ..$ type          : chr "iid"
##   .. .. .. .. ..$ n             : num 1
##   .. .. .. .. ..$ values        : int 1
##   .. .. .. .. ..$ season.length : NULL
##   .. .. .. .. ..$ factor_mapping: NULL
##   .. .. .. .. ..- attr(*, "class")= chr [1:2] "bru_subcomponent" "list"
##   .. .. .. ..$ weights     : NULL
##   .. .. .. ..$ copy        : NULL
##   .. .. .. ..$ marginal    : NULL
##   .. .. .. ..$ env         :<environment: R_GlobalEnv> 
##   .. .. .. ..$ env_extra   :<environment: 0x5a1a7622cdb0> 
##   .. .. .. ..$ fcall       : language "f"(Intercept, model = BRU_Intercept_main_model, ngroup = 1, nrep = 1,      values = BRU_Intercept_values)
##   .. .. .. ..$ mapper      :List of 6
##   .. .. .. .. ..$ mappers  :List of 2
##   .. .. .. .. .. ..$ mapper:List of 9
##   .. .. .. .. .. .. ..$ mappers          :List of 3
##   .. .. .. .. .. .. .. ..$ main     : list()
##   .. .. .. .. .. .. .. .. ..- attr(*, "class")= chr [1:3] "bru_mapper_linear" "bru_mapper" "list"
##   .. .. .. .. .. .. .. ..$ group    :List of 1
##   .. .. .. .. .. .. .. .. ..$ n: num 1
##   .. .. .. .. .. .. .. .. ..- attr(*, "class")= chr [1:3] "bru_mapper_index" "bru_mapper" "list"
##   .. .. .. .. .. .. .. ..$ replicate:List of 1
##   .. .. .. .. .. .. .. .. ..$ n: num 1
##   .. .. .. .. .. .. .. .. ..- attr(*, "class")= chr [1:3] "bru_mapper_index" "bru_mapper" "list"
##   .. .. .. .. .. .. ..$ n_multi          :List of 3
##   .. .. .. .. .. .. .. ..$ main     : int 1
##   .. .. .. .. .. .. .. ..$ group    : num 1
##   .. .. .. .. .. .. .. ..$ replicate: num 1
##   .. .. .. .. .. .. ..$ n_inla_multi     :List of 3
##   .. .. .. .. .. .. .. ..$ main     : int 1
##   .. .. .. .. .. .. .. ..$ group    : num 1
##   .. .. .. .. .. .. .. ..$ replicate: num 1
##   .. .. .. .. .. .. ..$ values_multi     :List of 3
##   .. .. .. .. .. .. .. ..$ main     : num 1
##   .. .. .. .. .. .. .. ..$ group    : int 1
##   .. .. .. .. .. .. .. ..$ replicate: int 1
##   .. .. .. .. .. .. ..$ values_inla_multi:List of 3
##   .. .. .. .. .. .. .. ..$ main     : num 1
##   .. .. .. .. .. .. .. ..$ group    : int 1
##   .. .. .. .. .. .. .. ..$ replicate: int 1
##   .. .. .. .. .. .. ..$ is_linear_multi  :List of 3
##   .. .. .. .. .. .. .. ..$ main     : logi TRUE
##   .. .. .. .. .. .. .. ..$ group    : logi TRUE
##   .. .. .. .. .. .. .. ..$ replicate: logi TRUE
##   .. .. .. .. .. .. ..$ n                : num 1
##   .. .. .. .. .. .. ..$ n_inla           : num 1
##   .. .. .. .. .. .. ..$ is_linear        : logi TRUE
##   .. .. .. .. .. .. ..- attr(*, "class")= chr [1:3] "bru_mapper_multi" "bru_mapper" "list"
##   .. .. .. .. .. ..$ scale : list()
##   .. .. .. .. .. .. ..- attr(*, "class")= chr [1:3] "bru_mapper_scale" "bru_mapper" "list"
##   .. .. .. .. ..$          : Named logi [1:2] TRUE TRUE
##   .. .. .. .. .. ..- attr(*, "names")= chr [1:2] "mapper" "scale"
##   .. .. .. .. ..$ is_linear: logi TRUE
##   .. .. .. .. ..$ n_multi  : Named int [1:2] 1 NA
##   .. .. .. .. .. ..- attr(*, "names")= chr [1:2] "mapper" "scale"
##   .. .. .. .. ..$ n        : num 1
##   .. .. .. .. ..$ names    : chr [1:2] "mapper" "scale"
##   .. .. .. .. ..- attr(*, "class")= chr [1:3] "bru_mapper_pipe" "bru_mapper" "list"
##   .. .. .. ..- attr(*, "class")= chr [1:2] "component" "list"
##   .. .. ..$ SpeedLimit:List of 12
##   .. .. .. ..$ label       : chr "SpeedLimit"
##   .. .. .. ..$ inla.formula:Class 'formula'  language ~. + f(SpeedLimit, model = BRU_SpeedLimit_main_model, ngroup = 1, nrep = 1,      values = BRU_SpeedLimit_values)
##   .. .. .. .. .. ..- attr(*, ".Environment")=<environment: R_GlobalEnv> 
##   .. .. .. ..$ main        :List of 8
##   .. .. .. .. ..$ input         :List of 4
##   .. .. .. .. .. ..$ input   : symbol SpeedLimit
##   .. .. .. .. .. ..$ label   : chr "SpeedLimit"
##   .. .. .. .. .. ..$ layer   : NULL
##   .. .. .. .. .. ..$ selector: NULL
##   .. .. .. .. .. ..- attr(*, "class")= chr [1:2] "bru_input" "list"
##   .. .. .. .. ..$ mapper        : list()
##   .. .. .. .. .. ..- attr(*, "class")= chr [1:3] "bru_mapper_linear" "bru_mapper" "list"
##   .. .. .. .. ..$ model         : chr "linear"
##   .. .. .. .. ..$ type          : chr "linear"
##   .. .. .. .. ..$ n             : int 1
##   .. .. .. .. ..$ values        : num 1
##   .. .. .. .. ..$ season.length : NULL
##   .. .. .. .. ..$ factor_mapping: NULL
##   .. .. .. .. ..- attr(*, "class")= chr [1:2] "bru_subcomponent" "list"
##   .. .. .. ..$ group       :List of 8
##   .. .. .. .. ..$ input         :List of 4
##   .. .. .. .. .. ..$ input   : int 1
##   .. .. .. .. .. ..$ label   : chr "SpeedLimit.group"
##   .. .. .. .. .. ..$ layer   : NULL
##   .. .. .. .. .. ..$ selector: NULL
##   .. .. .. .. .. ..- attr(*, "class")= chr [1:2] "bru_input" "list"
##   .. .. .. .. ..$ mapper        :List of 1
##   .. .. .. .. .. ..$ n: num 1
##   .. .. .. .. .. ..- attr(*, "class")= chr [1:3] "bru_mapper_index" "bru_mapper" "list"
##   .. .. .. .. ..$ model         : chr "exchangeable"
##   .. .. .. .. ..$ type          : chr "exchangeable"
##   .. .. .. .. ..$ n             : num 1
##   .. .. .. .. ..$ values        : int 1
##   .. .. .. .. ..$ season.length : NULL
##   .. .. .. .. ..$ factor_mapping: NULL
##   .. .. .. .. ..- attr(*, "class")= chr [1:2] "bru_subcomponent" "list"
##   .. .. .. ..$ replicate   :List of 8
##   .. .. .. .. ..$ input         :List of 4
##   .. .. .. .. .. ..$ input   : int 1
##   .. .. .. .. .. ..$ label   : chr "SpeedLimit.repl"
##   .. .. .. .. .. ..$ layer   : NULL
##   .. .. .. .. .. ..$ selector: NULL
##   .. .. .. .. .. ..- attr(*, "class")= chr [1:2] "bru_input" "list"
##   .. .. .. .. ..$ mapper        :List of 1
##   .. .. .. .. .. ..$ n: num 1
##   .. .. .. .. .. ..- attr(*, "class")= chr [1:3] "bru_mapper_index" "bru_mapper" "list"
##   .. .. .. .. ..$ model         : chr "iid"
##   .. .. .. .. ..$ type          : chr "iid"
##   .. .. .. .. ..$ n             : num 1
##   .. .. .. .. ..$ values        : int 1
##   .. .. .. .. ..$ season.length : NULL
##   .. .. .. .. ..$ factor_mapping: NULL
##   .. .. .. .. ..- attr(*, "class")= chr [1:2] "bru_subcomponent" "list"
##   .. .. .. ..$ weights     : NULL
##   .. .. .. ..$ copy        : NULL
##   .. .. .. ..$ marginal    : NULL
##   .. .. .. ..$ env         :<environment: R_GlobalEnv> 
##   .. .. .. ..$ env_extra   :<environment: 0x5a1a762476d8> 
##   .. .. .. ..$ fcall       : language "f"(SpeedLimit, model = BRU_SpeedLimit_main_model, ngroup = 1, nrep = 1,      values = BRU_SpeedLimit_values)
##   .. .. .. ..$ mapper      :List of 6
##   .. .. .. .. ..$ mappers  :List of 2
##   .. .. .. .. .. ..$ mapper:List of 9
##   .. .. .. .. .. .. ..$ mappers          :List of 3
##   .. .. .. .. .. .. .. ..$ main     : list()
##   .. .. .. .. .. .. .. .. ..- attr(*, "class")= chr [1:3] "bru_mapper_linear" "bru_mapper" "list"
##   .. .. .. .. .. .. .. ..$ group    :List of 1
##   .. .. .. .. .. .. .. .. ..$ n: num 1
##   .. .. .. .. .. .. .. .. ..- attr(*, "class")= chr [1:3] "bru_mapper_index" "bru_mapper" "list"
##   .. .. .. .. .. .. .. ..$ replicate:List of 1
##   .. .. .. .. .. .. .. .. ..$ n: num 1
##   .. .. .. .. .. .. .. .. ..- attr(*, "class")= chr [1:3] "bru_mapper_index" "bru_mapper" "list"
##   .. .. .. .. .. .. ..$ n_multi          :List of 3
##   .. .. .. .. .. .. .. ..$ main     : int 1
##   .. .. .. .. .. .. .. ..$ group    : num 1
##   .. .. .. .. .. .. .. ..$ replicate: num 1
##   .. .. .. .. .. .. ..$ n_inla_multi     :List of 3
##   .. .. .. .. .. .. .. ..$ main     : int 1
##   .. .. .. .. .. .. .. ..$ group    : num 1
##   .. .. .. .. .. .. .. ..$ replicate: num 1
##   .. .. .. .. .. .. ..$ values_multi     :List of 3
##   .. .. .. .. .. .. .. ..$ main     : num 1
##   .. .. .. .. .. .. .. ..$ group    : int 1
##   .. .. .. .. .. .. .. ..$ replicate: int 1
##   .. .. .. .. .. .. ..$ values_inla_multi:List of 3
##   .. .. .. .. .. .. .. ..$ main     : num 1
##   .. .. .. .. .. .. .. ..$ group    : int 1
##   .. .. .. .. .. .. .. ..$ replicate: int 1
##   .. .. .. .. .. .. ..$ is_linear_multi  :List of 3
##   .. .. .. .. .. .. .. ..$ main     : logi TRUE
##   .. .. .. .. .. .. .. ..$ group    : logi TRUE
##   .. .. .. .. .. .. .. ..$ replicate: logi TRUE
##   .. .. .. .. .. .. ..$ n                : num 1
##   .. .. .. .. .. .. ..$ n_inla           : num 1
##   .. .. .. .. .. .. ..$ is_linear        : logi TRUE
##   .. .. .. .. .. .. ..- attr(*, "class")= chr [1:3] "bru_mapper_multi" "bru_mapper" "list"
##   .. .. .. .. .. ..$ scale : list()
##   .. .. .. .. .. .. ..- attr(*, "class")= chr [1:3] "bru_mapper_scale" "bru_mapper" "list"
##   .. .. .. .. ..$          : Named logi [1:2] TRUE TRUE
##   .. .. .. .. .. ..- attr(*, "names")= chr [1:2] "mapper" "scale"
##   .. .. .. .. ..$ is_linear: logi TRUE
##   .. .. .. .. ..$ n_multi  : Named int [1:2] 1 NA
##   .. .. .. .. .. ..- attr(*, "names")= chr [1:2] "mapper" "scale"
##   .. .. .. .. ..$ n        : num 1
##   .. .. .. .. ..$ names    : chr [1:2] "mapper" "scale"
##   .. .. .. .. ..- attr(*, "class")= chr [1:3] "bru_mapper_pipe" "bru_mapper" "list"
##   .. .. .. ..- attr(*, "class")= chr [1:2] "component" "list"
##   .. .. ..$ field     :List of 12
##   .. .. .. ..$ label       : chr "field"
##   .. .. .. ..$ inla.formula:Class 'formula'  language ~. + f(field, model = BRU_field_main_model, replicate = field.repl, ngroup = 1,      nrep = 4L, values = BRU_field_values)
##   .. .. .. .. .. ..- attr(*, ".Environment")=<environment: R_GlobalEnv> 
##   .. .. .. ..$ main        :List of 8
##   .. .. .. .. ..$ input         :List of 4
##   .. .. .. .. .. ..$ input   : symbol loc
##   .. .. .. .. .. ..$ label   : chr "field"
##   .. .. .. .. .. ..$ layer   : NULL
##   .. .. .. .. .. ..$ selector: NULL
##   .. .. .. .. .. ..- attr(*, "class")= chr [1:2] "bru_input" "list"
##   .. .. .. .. ..$ mapper        :List of 1
##   .. .. .. .. .. ..$ model:List of 21
##   .. .. .. .. .. .. ..$ f                   :List of 3
##   .. .. .. .. .. .. .. ..$ model   : chr "cgeneric"
##   .. .. .. .. .. .. .. ..$ n       : int 13932
##   .. .. .. .. .. .. .. ..$ cgeneric:List of 5
##   .. .. .. .. .. .. .. .. ..$ model: chr "inla_cgeneric_rspde_stat_int_model"
##   .. .. .. .. .. .. .. .. ..$ shlib: chr "/home/rierasl/R/x86_64-pc-linux-gnu-library/4.4/INLA/bin/linux/64bit/external/rSPDE/librSPDE.so"
##   .. .. .. .. .. .. .. .. ..$ n    : int 13932
##   .. .. .. .. .. .. .. .. ..$ debug: logi FALSE
##   .. .. .. .. .. .. .. .. ..$ data :List of 5
##   .. .. .. .. .. .. .. .. .. ..$ ints      :List of 5
##   .. .. .. .. .. .. .. .. .. .. ..$ n          : int 13932
##   .. .. .. .. .. .. .. .. .. .. ..$ debug      : int 0
##   .. .. .. .. .. .. .. .. .. .. ..$ m_alpha    : int 1
##   .. .. .. .. .. .. .. .. .. .. ..$ graph_opt_i: int [1:29068] 0 0 0 0 1 1 1 1 1 2 ...
##   .. .. .. .. .. .. .. .. .. .. ..$ graph_opt_j: int [1:29068] 0 5681 8781 11463 1 8781 11429 11463 13882 2 ...
##   .. .. .. .. .. .. .. .. .. ..$ doubles   :List of 4
##   .. .. .. .. .. .. .. .. .. .. ..$ matrices_less   : num [1:58136] 0.0534 0 0 0 0.0776 ...
##   .. .. .. .. .. .. .. .. .. .. ..$ theta.prior.mean: num [1:2] 0 1.35
##   .. .. .. .. .. .. .. .. .. .. ..$ start.theta     : num [1:2] 0 1.35
##   .. .. .. .. .. .. .. .. .. .. ..$ nu              : num 0.5
##   .. .. .. .. .. .. .. .. .. ..$ characters:List of 4
##   .. .. .. .. .. .. .. .. .. .. ..$ model            : chr "inla_cgeneric_rspde_stat_int_model"
##   .. .. .. .. .. .. .. .. .. .. ..$ shlib            : chr "/home/rierasl/R/x86_64-pc-linux-gnu-library/4.4/INLA/bin/linux/64bit/external/rSPDE/librSPDE.so"
##   .. .. .. .. .. .. .. .. .. .. ..$ parameterization : chr "matern"
##   .. .. .. .. .. .. .. .. .. .. ..$ prior.theta.param: chr "theta"
##   .. .. .. .. .. .. .. .. .. ..$ matrices  :List of 1
##   .. .. .. .. .. .. .. .. .. .. ..$ theta.prior.prec: num [1:6] 2 2 0.1 0 0 0.1
##   .. .. .. .. .. .. .. .. .. ..$ smatrices : list()
##   .. .. .. .. .. .. .. .. ..- attr(*, "class")= chr "inla.cgeneric"
##   .. .. .. .. .. .. ..$ cgeneric_type       : chr "int_alpha"
##   .. .. .. .. .. .. ..$ nu                  : num 0.5
##   .. .. .. .. .. .. ..$ theta.prior.mean    : num [1:2] 0 1.35
##   .. .. .. .. .. .. ..$ prior.nu            :List of 4
##   .. .. .. .. .. .. .. ..$ loglocation: num -5e-06
##   .. .. .. .. .. .. .. ..$ mean       : num 1
##   .. .. .. .. .. .. .. ..$ prec       : num 3
##   .. .. .. .. .. .. .. ..$ logscale   : num 1
##   .. .. .. .. .. .. ..$ theta.prior.prec    : num [1:2, 1:2] 0.1 0 0 0.1
##   .. .. .. .. .. .. ..$ start.nu            : num 0.5
##   .. .. .. .. .. .. ..$ integer.nu          : logi TRUE
##   .. .. .. .. .. .. ..$ start.theta         : num [1:2] 0 1.35
##   .. .. .. .. .. .. ..$ stationary          : logi TRUE
##   .. .. .. .. .. .. ..$ rspde.order         : num 2
##   .. .. .. .. .. .. ..$ dim                 : num 1
##   .. .. .. .. .. .. ..$ est_nu              : logi FALSE
##   .. .. .. .. .. .. ..$ nu.upper.bound      : num 2
##   .. .. .. .. .. .. ..$ prior.nu.dist       : chr "lognormal"
##   .. .. .. .. .. .. ..$ debug               : logi FALSE
##   .. .. .. .. .. .. ..$ type.rational.approx: chr "chebfun"
##   .. .. .. .. .. .. ..$ mesh                :Classes 'metric_graph', 'R6' <metric_graph>
##   Public:
##     add_mesh_observations: function (data = NULL, group = NULL) 
##     add_observations: function (data = NULL, edge_number = "edge_number", distance_on_edge = "distance_on_edge", 
##     build_mesh: function (h = NULL, n = NULL, continuous = TRUE, continuous.outs = FALSE, 
##     buildC: function (alpha = 2, edge_constraint = FALSE) 
##     buildDirectionalConstraints: function (alpha = 1) 
##     C: NULL
##     characteristics: list
##     check_distance_consistency: function () 
##     check_euclidean: function () 
##     clear_observations: function () 
##     clone: function (deep = FALSE) 
##     CoB: NULL
##     compute_characteristics: function (check_euclidean = FALSE) 
##     compute_fem: function (petrov = FALSE) 
##     compute_geodist: function (full = FALSE, obs = TRUE, group = NULL, verbose = 0) 
##     compute_geodist_mesh: function () 
##     compute_geodist_PtE: function (PtE, normalized = TRUE, include_vertices = TRUE, verbose = 0) 
##     compute_laplacian: function (full = FALSE, obs = TRUE, group = NULL, verbose = 0) 
##     compute_PtE_edges: function () 
##     compute_resdist: function (full = FALSE, obs = TRUE, group = NULL, check_euclidean = FALSE, 
##     compute_resdist_mesh: function () 
##     compute_resdist_PtE: function (PtE, normalized = TRUE, include_vertices = FALSE, check_euclidean = FALSE, 
##     coordinates: function (PtE = NULL, XY = NULL, normalized = TRUE) 
##     drop_na: function (...) 
##     E: 1 3 5 7 9 9 10 12 13 14 15 12 18 19 21 20 22 24 26 28 30 ...
##     edge_lengths: 0.0820202978316493 0.13610246403764 0.07378151878521 0.0 ...
##     edges: metric_graph_edges
##     edgeweight_to_data: function (loc = NULL, mesh = FALSE, data_loc = FALSE, weight_col = NULL, 
##     fem_basis: function (PtE) 
##     filter: function (..., .drop_na = FALSE, .drop_all_na = TRUE) 
##     geo_dist: list
##     get_data: function (group = NULL, tibble = TRUE, drop_na = FALSE, drop_all_na = TRUE) 
##     get_degrees: function (which = "degree") 
##     get_edge_lengths: function (unit = NULL) 
##     get_edge_weights: function (data.frame = FALSE, tibble = TRUE) 
##     get_groups: function (get_cols = FALSE) 
##     get_initial_graph: function () 
##     get_locations: function () 
##     get_mesh_locations: function (bru = FALSE, loc = NULL, normalized = TRUE) 
##     get_PtE: function () 
##     get_vertices_incomp_dir: function () 
##     initialize: function (edges = NULL, V = NULL, E = NULL, vertex_unit = NULL, 
##     is_tree: function () 
##     Laplacian: NULL
##     mesh: list
##     mesh_A: function (PtE) 
##     mutate: function (..., .drop_na = FALSE, .drop_all_na = TRUE) 
##     nE: 11104
##     nV: 8781
##     observation_to_vertex: function (tolerance = 1e-15, mesh_warning = TRUE) 
##     plot: function (data = NULL, newdata = NULL, group = 1, plotly = FALSE, 
##     plot_connections: function () 
##     plot_function: function (data = NULL, newdata = NULL, group = 1, X = NULL, plotly = FALSE, 
##     plot_movie: function (X, plotly = TRUE, vertex_size = 5, vertex_color = "black", 
##     print: function () 
##     process_data: function (data = NULL, edge_number = "edge_number", distance_on_edge = "distance_on_edge", 
##     prune_vertices: function (check_weights = TRUE, verbose = FALSE) 
##     PtV: NULL
##     res_dist: NULL
##     select: function (..., .drop_na = FALSE, .drop_all_na = TRUE) 
##     set_edge_weights: function (weights = rep(1, self$nE), kirchhoff_weights = NULL) 
##     summarise: function (..., .include_graph_groups = FALSE, .groups = NULL, 
##     summary: function (messages = FALSE, compute_characteristics = TRUE, check_euclidean = TRUE, 
##     V: -122.40171 -122.40078 -122.44449 -122.44331 -122.41216 - ...
##     vertices: metric_graph_vertices
##     VtEfirst: function () 
##   Private:
##     A: function (group = NULL, obs_to_vert = FALSE, drop_na = FALSE, 
##     add_vertices: function (PtE, tolerance = 1e-10, verbose) 
##     addinfo: FALSE
##     clear_initial_info: function () 
##     compute_degrees: function () 
##     compute_laplacian_PtE: function (PtE, normalized = TRUE, verbose = verbose) 
##     compute_lengths: function (longlat, unit, crs, proj4string, which_longlat, vertex_unit, 
##     connected: TRUE
##     coordinates_multiple_snaps: function (XY, tolerance, verbose = verbose, crs, proj4string, 
##     create_update_vertices: function () 
##     crs: crs
##     data: metric_graph_data, list
##     edge_weights: tbl_df, tbl, data.frame
##     find_edge_edge_points: function (tol, verbose, crs, proj4string, longlat, fact, which_longlat) 
##     find_mesh_bc: function () 
##     get_edge_weights_internal: function (data.frame = FALSE) 
##     group_col: .group
##     initial_edges_added: NULL
##     initial_graph: metric_graph, R6
##     kirchhoff_weights: NULL
##     length_unit: km
##     line_to_vertex: function (tolerance = 0, longlat = FALSE, fact, verbose, crs, 
##     longlat: TRUE
##     merge_close_vertices: function (tolerance, fact) 
##     merge.all.deg2: function () 
##     mesh_merge_deg2: function () 
##     mesh_merge_outs: function () 
##     move_V_first: function () 
##     plot_2d: function (line_width = 0.1, marker_size = 1, vertex_color = "black", 
##     plot_3d: function (line_width = 1, marker_size = 1, vertex_color = "rgb(0,0,0)", 
##     proj4string: NULL
##     prune_warning: FALSE
##     pruned: FALSE
##     PtE_to_mesh: function (PtE) 
##     ref_edges: 1 5502 2 359 3 4077 4 5117 5 7 5419 8 9 10 11 4817 4613  ...
##     remove_circles: function (threshold, verbose, longlat, unit, crs, proj4string, 
##     remove.first.deg2: function (res) 
##     set_first_weights: function (weights = rep(1, self$nE)) 
##     set_petrov_matrices: function () 
##     split_edge: function (Ei, t, tolerance = 0) 
##     temp_PtE: NULL
##     tolerance: list
##     transform: FALSE
##     vertex_unit: degrees
##     which_longlat: sf 
##   .. .. .. .. .. .. ..$ fem_mesh            :List of 4
##   .. .. .. .. .. .. .. ..$ c0:Formal class 'dgTMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. .. .. .. .. ..@ i       : int [1:13932] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. .. .. .. .. ..@ j       : int [1:13932] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. .. .. .. .. ..@ Dim     : int [1:2] 13932 13932
##   .. .. .. .. .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. .. .. .. ..@ x       : num [1:13932] 0.0534 0.0776 0.0408 0.0457 0.0367 ...
##   .. .. .. .. .. .. .. .. .. ..@ factors : list()
##   .. .. .. .. .. .. .. ..$ g1:Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. .. .. .. .. ..@ i       : int [1:44204] 0 5681 8781 11463 1 8781 11429 11463 13882 2 ...
##   .. .. .. .. .. .. .. .. .. ..@ p       : int [1:13933] 0 4 9 12 15 18 23 26 29 34 ...
##   .. .. .. .. .. .. .. .. .. ..@ Dim     : int [1:2] 13932 13932
##   .. .. .. .. .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. .. .. .. ..@ x       : num [1:44204] 210.6 -161.9 -24.4 -24.4 103.4 ...
##   .. .. .. .. .. .. .. .. .. ..@ factors : list()
##   .. .. .. .. .. .. .. ..$ g2:Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. .. .. .. .. ..@ i       : int [1:81554] 0 1 5399 5681 8781 11463 0 1 4450 8781 ...
##   .. .. .. .. .. .. .. .. .. ..@ p       : int [1:13933] 0 6 13 18 23 28 37 42 47 56 ...
##   .. .. .. .. .. .. .. .. .. ..@ Dim     : int [1:2] 13932 13932
##   .. .. .. .. .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. .. .. .. ..@ x       : num [1:81554] 1731368 28997 607384 -2117274 -125237 ...
##   .. .. .. .. .. .. .. .. .. ..@ factors : list()
##   .. .. .. .. .. .. .. ..$ g3:Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. .. .. .. .. ..@ i       : int [1:124984] 0 1 805 5399 5681 8781 11429 11463 13882 0 ...
##   .. .. .. .. .. .. .. .. .. ..@ p       : int [1:13933] 0 9 18 25 32 43 56 65 72 85 ...
##   .. .. .. .. .. .. .. .. .. ..@ Dim     : int [1:2] 13932 13932
##   .. .. .. .. .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. .. .. .. ..@ x       : num [1:124984] 1.84e+10 1.88e+08 -4.79e+08 9.57e+09 -2.57e+10 ...
##   .. .. .. .. .. .. .. .. .. ..@ factors : list()
##   .. .. .. .. .. .. ..$ parameterization    : chr "matern"
##   .. .. .. .. .. .. ..$ n.spde              : int 13932
##   .. .. .. .. .. .. ..- attr(*, "class")= chr [1:3] "rspde_metric_graph" "inla_rspde" "inla.cgeneric"
##   .. .. .. .. .. ..- attr(*, "class")= chr [1:3] "bru_mapper_inla_rspde" "bru_mapper" "list"
##   .. .. .. .. ..$ model         :List of 21
##   .. .. .. .. .. ..$ f                   :List of 3
##   .. .. .. .. .. .. ..$ model   : chr "cgeneric"
##   .. .. .. .. .. .. ..$ n       : int 13932
##   .. .. .. .. .. .. ..$ cgeneric:List of 5
##   .. .. .. .. .. .. .. ..$ model: chr "inla_cgeneric_rspde_stat_int_model"
##   .. .. .. .. .. .. .. ..$ shlib: chr "/home/rierasl/R/x86_64-pc-linux-gnu-library/4.4/INLA/bin/linux/64bit/external/rSPDE/librSPDE.so"
##   .. .. .. .. .. .. .. ..$ n    : int 13932
##   .. .. .. .. .. .. .. ..$ debug: logi FALSE
##   .. .. .. .. .. .. .. ..$ data :List of 5
##   .. .. .. .. .. .. .. .. ..$ ints      :List of 5
##   .. .. .. .. .. .. .. .. .. ..$ n          : int 13932
##   .. .. .. .. .. .. .. .. .. ..$ debug      : int 0
##   .. .. .. .. .. .. .. .. .. ..$ m_alpha    : int 1
##   .. .. .. .. .. .. .. .. .. ..$ graph_opt_i: int [1:29068] 0 0 0 0 1 1 1 1 1 2 ...
##   .. .. .. .. .. .. .. .. .. ..$ graph_opt_j: int [1:29068] 0 5681 8781 11463 1 8781 11429 11463 13882 2 ...
##   .. .. .. .. .. .. .. .. ..$ doubles   :List of 4
##   .. .. .. .. .. .. .. .. .. ..$ matrices_less   : num [1:58136] 0.0534 0 0 0 0.0776 ...
##   .. .. .. .. .. .. .. .. .. ..$ theta.prior.mean: num [1:2] 0 1.35
##   .. .. .. .. .. .. .. .. .. ..$ start.theta     : num [1:2] 0 1.35
##   .. .. .. .. .. .. .. .. .. ..$ nu              : num 0.5
##   .. .. .. .. .. .. .. .. ..$ characters:List of 4
##   .. .. .. .. .. .. .. .. .. ..$ model            : chr "inla_cgeneric_rspde_stat_int_model"
##   .. .. .. .. .. .. .. .. .. ..$ shlib            : chr "/home/rierasl/R/x86_64-pc-linux-gnu-library/4.4/INLA/bin/linux/64bit/external/rSPDE/librSPDE.so"
##   .. .. .. .. .. .. .. .. .. ..$ parameterization : chr "matern"
##   .. .. .. .. .. .. .. .. .. ..$ prior.theta.param: chr "theta"
##   .. .. .. .. .. .. .. .. ..$ matrices  :List of 1
##   .. .. .. .. .. .. .. .. .. ..$ theta.prior.prec: num [1:6] 2 2 0.1 0 0 0.1
##   .. .. .. .. .. .. .. .. ..$ smatrices : list()
##   .. .. .. .. .. .. .. ..- attr(*, "class")= chr "inla.cgeneric"
##   .. .. .. .. .. ..$ cgeneric_type       : chr "int_alpha"
##   .. .. .. .. .. ..$ nu                  : num 0.5
##   .. .. .. .. .. ..$ theta.prior.mean    : num [1:2] 0 1.35
##   .. .. .. .. .. ..$ prior.nu            :List of 4
##   .. .. .. .. .. .. ..$ loglocation: num -5e-06
##   .. .. .. .. .. .. ..$ mean       : num 1
##   .. .. .. .. .. .. ..$ prec       : num 3
##   .. .. .. .. .. .. ..$ logscale   : num 1
##   .. .. .. .. .. ..$ theta.prior.prec    : num [1:2, 1:2] 0.1 0 0 0.1
##   .. .. .. .. .. ..$ start.nu            : num 0.5
##   .. .. .. .. .. ..$ integer.nu          : logi TRUE
##   .. .. .. .. .. ..$ start.theta         : num [1:2] 0 1.35
##   .. .. .. .. .. ..$ stationary          : logi TRUE
##   .. .. .. .. .. ..$ rspde.order         : num 2
##   .. .. .. .. .. ..$ dim                 : num 1
##   .. .. .. .. .. ..$ est_nu              : logi FALSE
##   .. .. .. .. .. ..$ nu.upper.bound      : num 2
##   .. .. .. .. .. ..$ prior.nu.dist       : chr "lognormal"
##   .. .. .. .. .. ..$ debug               : logi FALSE
##   .. .. .. .. .. ..$ type.rational.approx: chr "chebfun"
##   .. .. .. .. .. ..$ mesh                :Classes 'metric_graph', 'R6' <metric_graph>
##   Public:
##     add_mesh_observations: function (data = NULL, group = NULL) 
##     add_observations: function (data = NULL, edge_number = "edge_number", distance_on_edge = "distance_on_edge", 
##     build_mesh: function (h = NULL, n = NULL, continuous = TRUE, continuous.outs = FALSE, 
##     buildC: function (alpha = 2, edge_constraint = FALSE) 
##     buildDirectionalConstraints: function (alpha = 1) 
##     C: NULL
##     characteristics: list
##     check_distance_consistency: function () 
##     check_euclidean: function () 
##     clear_observations: function () 
##     clone: function (deep = FALSE) 
##     CoB: NULL
##     compute_characteristics: function (check_euclidean = FALSE) 
##     compute_fem: function (petrov = FALSE) 
##     compute_geodist: function (full = FALSE, obs = TRUE, group = NULL, verbose = 0) 
##     compute_geodist_mesh: function () 
##     compute_geodist_PtE: function (PtE, normalized = TRUE, include_vertices = TRUE, verbose = 0) 
##     compute_laplacian: function (full = FALSE, obs = TRUE, group = NULL, verbose = 0) 
##     compute_PtE_edges: function () 
##     compute_resdist: function (full = FALSE, obs = TRUE, group = NULL, check_euclidean = FALSE, 
##     compute_resdist_mesh: function () 
##     compute_resdist_PtE: function (PtE, normalized = TRUE, include_vertices = FALSE, check_euclidean = FALSE, 
##     coordinates: function (PtE = NULL, XY = NULL, normalized = TRUE) 
##     drop_na: function (...) 
##     E: 1 3 5 7 9 9 10 12 13 14 15 12 18 19 21 20 22 24 26 28 30 ...
##     edge_lengths: 0.0820202978316493 0.13610246403764 0.07378151878521 0.0 ...
##     edges: metric_graph_edges
##     edgeweight_to_data: function (loc = NULL, mesh = FALSE, data_loc = FALSE, weight_col = NULL, 
##     fem_basis: function (PtE) 
##     filter: function (..., .drop_na = FALSE, .drop_all_na = TRUE) 
##     geo_dist: list
##     get_data: function (group = NULL, tibble = TRUE, drop_na = FALSE, drop_all_na = TRUE) 
##     get_degrees: function (which = "degree") 
##     get_edge_lengths: function (unit = NULL) 
##     get_edge_weights: function (data.frame = FALSE, tibble = TRUE) 
##     get_groups: function (get_cols = FALSE) 
##     get_initial_graph: function () 
##     get_locations: function () 
##     get_mesh_locations: function (bru = FALSE, loc = NULL, normalized = TRUE) 
##     get_PtE: function () 
##     get_vertices_incomp_dir: function () 
##     initialize: function (edges = NULL, V = NULL, E = NULL, vertex_unit = NULL, 
##     is_tree: function () 
##     Laplacian: NULL
##     mesh: list
##     mesh_A: function (PtE) 
##     mutate: function (..., .drop_na = FALSE, .drop_all_na = TRUE) 
##     nE: 11104
##     nV: 8781
##     observation_to_vertex: function (tolerance = 1e-15, mesh_warning = TRUE) 
##     plot: function (data = NULL, newdata = NULL, group = 1, plotly = FALSE, 
##     plot_connections: function () 
##     plot_function: function (data = NULL, newdata = NULL, group = 1, X = NULL, plotly = FALSE, 
##     plot_movie: function (X, plotly = TRUE, vertex_size = 5, vertex_color = "black", 
##     print: function () 
##     process_data: function (data = NULL, edge_number = "edge_number", distance_on_edge = "distance_on_edge", 
##     prune_vertices: function (check_weights = TRUE, verbose = FALSE) 
##     PtV: NULL
##     res_dist: NULL
##     select: function (..., .drop_na = FALSE, .drop_all_na = TRUE) 
##     set_edge_weights: function (weights = rep(1, self$nE), kirchhoff_weights = NULL) 
##     summarise: function (..., .include_graph_groups = FALSE, .groups = NULL, 
##     summary: function (messages = FALSE, compute_characteristics = TRUE, check_euclidean = TRUE, 
##     V: -122.40171 -122.40078 -122.44449 -122.44331 -122.41216 - ...
##     vertices: metric_graph_vertices
##     VtEfirst: function () 
##   Private:
##     A: function (group = NULL, obs_to_vert = FALSE, drop_na = FALSE, 
##     add_vertices: function (PtE, tolerance = 1e-10, verbose) 
##     addinfo: FALSE
##     clear_initial_info: function () 
##     compute_degrees: function () 
##     compute_laplacian_PtE: function (PtE, normalized = TRUE, verbose = verbose) 
##     compute_lengths: function (longlat, unit, crs, proj4string, which_longlat, vertex_unit, 
##     connected: TRUE
##     coordinates_multiple_snaps: function (XY, tolerance, verbose = verbose, crs, proj4string, 
##     create_update_vertices: function () 
##     crs: crs
##     data: metric_graph_data, list
##     edge_weights: tbl_df, tbl, data.frame
##     find_edge_edge_points: function (tol, verbose, crs, proj4string, longlat, fact, which_longlat) 
##     find_mesh_bc: function () 
##     get_edge_weights_internal: function (data.frame = FALSE) 
##     group_col: .group
##     initial_edges_added: NULL
##     initial_graph: metric_graph, R6
##     kirchhoff_weights: NULL
##     length_unit: km
##     line_to_vertex: function (tolerance = 0, longlat = FALSE, fact, verbose, crs, 
##     longlat: TRUE
##     merge_close_vertices: function (tolerance, fact) 
##     merge.all.deg2: function () 
##     mesh_merge_deg2: function () 
##     mesh_merge_outs: function () 
##     move_V_first: function () 
##     plot_2d: function (line_width = 0.1, marker_size = 1, vertex_color = "black", 
##     plot_3d: function (line_width = 1, marker_size = 1, vertex_color = "rgb(0,0,0)", 
##     proj4string: NULL
##     prune_warning: FALSE
##     pruned: FALSE
##     PtE_to_mesh: function (PtE) 
##     ref_edges: 1 5502 2 359 3 4077 4 5117 5 7 5419 8 9 10 11 4817 4613  ...
##     remove_circles: function (threshold, verbose, longlat, unit, crs, proj4string, 
##     remove.first.deg2: function (res) 
##     set_first_weights: function (weights = rep(1, self$nE)) 
##     set_petrov_matrices: function () 
##     split_edge: function (Ei, t, tolerance = 0) 
##     temp_PtE: NULL
##     tolerance: list
##     transform: FALSE
##     vertex_unit: degrees
##     which_longlat: sf 
##   .. .. .. .. .. ..$ fem_mesh            :List of 4
##   .. .. .. .. .. .. ..$ c0:Formal class 'dgTMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. .. .. .. ..@ i       : int [1:13932] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. .. .. .. ..@ j       : int [1:13932] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. .. .. .. ..@ Dim     : int [1:2] 13932 13932
##   .. .. .. .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. .. .. ..@ x       : num [1:13932] 0.0534 0.0776 0.0408 0.0457 0.0367 ...
##   .. .. .. .. .. .. .. .. ..@ factors : list()
##   .. .. .. .. .. .. ..$ g1:Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. .. .. .. ..@ i       : int [1:44204] 0 5681 8781 11463 1 8781 11429 11463 13882 2 ...
##   .. .. .. .. .. .. .. .. ..@ p       : int [1:13933] 0 4 9 12 15 18 23 26 29 34 ...
##   .. .. .. .. .. .. .. .. ..@ Dim     : int [1:2] 13932 13932
##   .. .. .. .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. .. .. ..@ x       : num [1:44204] 210.6 -161.9 -24.4 -24.4 103.4 ...
##   .. .. .. .. .. .. .. .. ..@ factors : list()
##   .. .. .. .. .. .. ..$ g2:Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. .. .. .. ..@ i       : int [1:81554] 0 1 5399 5681 8781 11463 0 1 4450 8781 ...
##   .. .. .. .. .. .. .. .. ..@ p       : int [1:13933] 0 6 13 18 23 28 37 42 47 56 ...
##   .. .. .. .. .. .. .. .. ..@ Dim     : int [1:2] 13932 13932
##   .. .. .. .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. .. .. ..@ x       : num [1:81554] 1731368 28997 607384 -2117274 -125237 ...
##   .. .. .. .. .. .. .. .. ..@ factors : list()
##   .. .. .. .. .. .. ..$ g3:Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. .. .. .. ..@ i       : int [1:124984] 0 1 805 5399 5681 8781 11429 11463 13882 0 ...
##   .. .. .. .. .. .. .. .. ..@ p       : int [1:13933] 0 9 18 25 32 43 56 65 72 85 ...
##   .. .. .. .. .. .. .. .. ..@ Dim     : int [1:2] 13932 13932
##   .. .. .. .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. .. .. ..@ x       : num [1:124984] 1.84e+10 1.88e+08 -4.79e+08 9.57e+09 -2.57e+10 ...
##   .. .. .. .. .. .. .. .. ..@ factors : list()
##   .. .. .. .. .. ..$ parameterization    : chr "matern"
##   .. .. .. .. .. ..$ n.spde              : int 13932
##   .. .. .. .. .. ..- attr(*, "class")= chr [1:3] "rspde_metric_graph" "inla_rspde" "inla.cgeneric"
##   .. .. .. .. ..$ type          : chr "cgeneric"
##   .. .. .. .. ..$ n             : num 13932
##   .. .. .. .. ..$ values        : int [1:13932] 1 2 3 4 5 6 7 8 9 10 ...
##   .. .. .. .. ..$ season.length : NULL
##   .. .. .. .. ..$ factor_mapping: NULL
##   .. .. .. .. ..- attr(*, "class")= chr [1:2] "bru_subcomponent" "list"
##   .. .. .. ..$ group       :List of 8
##   .. .. .. .. ..$ input         :List of 4
##   .. .. .. .. .. ..$ input   : int 1
##   .. .. .. .. .. ..$ label   : chr "field.group"
##   .. .. .. .. .. ..$ layer   : NULL
##   .. .. .. .. .. ..$ selector: NULL
##   .. .. .. .. .. ..- attr(*, "class")= chr [1:2] "bru_input" "list"
##   .. .. .. .. ..$ mapper        :List of 1
##   .. .. .. .. .. ..$ n: num 1
##   .. .. .. .. .. ..- attr(*, "class")= chr [1:3] "bru_mapper_index" "bru_mapper" "list"
##   .. .. .. .. ..$ model         : chr "exchangeable"
##   .. .. .. .. ..$ type          : chr "exchangeable"
##   .. .. .. .. ..$ n             : num 1
##   .. .. .. .. ..$ values        : int 1
##   .. .. .. .. ..$ season.length : NULL
##   .. .. .. .. ..$ factor_mapping: NULL
##   .. .. .. .. ..- attr(*, "class")= chr [1:2] "bru_subcomponent" "list"
##   .. .. .. ..$ replicate   :List of 8
##   .. .. .. .. ..$ input         :List of 4
##   .. .. .. .. .. ..$ input   : language data_rspde_bru_stat[["repl"]]
##   .. .. .. .. .. ..$ label   : chr "field.repl"
##   .. .. .. .. .. ..$ layer   : NULL
##   .. .. .. .. .. ..$ selector: NULL
##   .. .. .. .. .. ..- attr(*, "class")= chr [1:2] "bru_input" "list"
##   .. .. .. .. ..$ mapper        :List of 4
##   .. .. .. .. .. ..$ levels        : chr [1:4] "1" "2" "3" "4"
##   .. .. .. .. .. ..$ factor_mapping: chr "full"
##   .. .. .. .. .. ..$ indexed       : logi TRUE
##   .. .. .. .. .. ..$ n             : int 4
##   .. .. .. .. .. ..- attr(*, "class")= chr [1:4] "bru_mapper_factor_index" "bru_mapper_factor" "bru_mapper" "list"
##   .. .. .. .. ..$ model         : chr "iid"
##   .. .. .. .. ..$ type          : chr "iid"
##   .. .. .. .. ..$ n             : int 4
##   .. .. .. .. ..$ values        : int [1:4] 1 2 3 4
##   .. .. .. .. ..$ season.length : NULL
##   .. .. .. .. ..$ factor_mapping: NULL
##   .. .. .. .. ..- attr(*, "class")= chr [1:2] "bru_subcomponent" "list"
##   .. .. .. ..$ weights     : NULL
##   .. .. .. ..$ copy        : NULL
##   .. .. .. ..$ marginal    : NULL
##   .. .. .. ..$ env         :<environment: R_GlobalEnv> 
##   .. .. .. ..$ env_extra   :<environment: 0x5a1a75739210> 
##   .. .. .. ..$ fcall       : language "f"(field, model = BRU_field_main_model, replicate = field.repl, ngroup = 1,      nrep = 4L, values = BRU_field_values)
##   .. .. .. ..$ mapper      :List of 6
##   .. .. .. .. ..$ mappers  :List of 2
##   .. .. .. .. .. ..$ mapper:List of 9
##   .. .. .. .. .. .. ..$ mappers          :List of 3
##   .. .. .. .. .. .. .. ..$ main     :List of 1
##   .. .. .. .. .. .. .. .. ..$ model:List of 21
##   .. .. .. .. .. .. .. .. .. ..$ f                   :List of 3
##   .. .. .. .. .. .. .. .. .. .. ..$ model   : chr "cgeneric"
##   .. .. .. .. .. .. .. .. .. .. ..$ n       : int 13932
##   .. .. .. .. .. .. .. .. .. .. ..$ cgeneric:List of 5
##   .. .. .. .. .. .. .. .. .. .. .. ..$ model: chr "inla_cgeneric_rspde_stat_int_model"
##   .. .. .. .. .. .. .. .. .. .. .. ..$ shlib: chr "/home/rierasl/R/x86_64-pc-linux-gnu-library/4.4/INLA/bin/linux/64bit/external/rSPDE/librSPDE.so"
##   .. .. .. .. .. .. .. .. .. .. .. ..$ n    : int 13932
##   .. .. .. .. .. .. .. .. .. .. .. ..$ debug: logi FALSE
##   .. .. .. .. .. .. .. .. .. .. .. ..$ data :List of 5
##   .. .. .. .. .. .. .. .. .. .. .. .. ..$ ints      :List of 5
##   .. .. .. .. .. .. .. .. .. .. .. .. .. ..$ n          : int 13932
##   .. .. .. .. .. .. .. .. .. .. .. .. .. ..$ debug      : int 0
##   .. .. .. .. .. .. .. .. .. .. .. .. .. ..$ m_alpha    : int 1
##   .. .. .. .. .. .. .. .. .. .. .. .. .. ..$ graph_opt_i: int [1:29068] 0 0 0 0 1 1 1 1 1 2 ...
##   .. .. .. .. .. .. .. .. .. .. .. .. .. ..$ graph_opt_j: int [1:29068] 0 5681 8781 11463 1 8781 11429 11463 13882 2 ...
##   .. .. .. .. .. .. .. .. .. .. .. .. ..$ doubles   :List of 4
##   .. .. .. .. .. .. .. .. .. .. .. .. .. ..$ matrices_less   : num [1:58136] 0.0534 0 0 0 0.0776 ...
##   .. .. .. .. .. .. .. .. .. .. .. .. .. ..$ theta.prior.mean: num [1:2] 0 1.35
##   .. .. .. .. .. .. .. .. .. .. .. .. .. ..$ start.theta     : num [1:2] 0 1.35
##   .. .. .. .. .. .. .. .. .. .. .. .. .. ..$ nu              : num 0.5
##   .. .. .. .. .. .. .. .. .. .. .. .. ..$ characters:List of 4
##   .. .. .. .. .. .. .. .. .. .. .. .. .. ..$ model            : chr "inla_cgeneric_rspde_stat_int_model"
##   .. .. .. .. .. .. .. .. .. .. .. .. .. ..$ shlib            : chr "/home/rierasl/R/x86_64-pc-linux-gnu-library/4.4/INLA/bin/linux/64bit/external/rSPDE/librSPDE.so"
##   .. .. .. .. .. .. .. .. .. .. .. .. .. ..$ parameterization : chr "matern"
##   .. .. .. .. .. .. .. .. .. .. .. .. .. ..$ prior.theta.param: chr "theta"
##   .. .. .. .. .. .. .. .. .. .. .. .. ..$ matrices  :List of 1
##   .. .. .. .. .. .. .. .. .. .. .. .. .. ..$ theta.prior.prec: num [1:6] 2 2 0.1 0 0 0.1
##   .. .. .. .. .. .. .. .. .. .. .. .. ..$ smatrices : list()
##   .. .. .. .. .. .. .. .. .. .. .. ..- attr(*, "class")= chr "inla.cgeneric"
##   .. .. .. .. .. .. .. .. .. ..$ cgeneric_type       : chr "int_alpha"
##   .. .. .. .. .. .. .. .. .. ..$ nu                  : num 0.5
##   .. .. .. .. .. .. .. .. .. ..$ theta.prior.mean    : num [1:2] 0 1.35
##   .. .. .. .. .. .. .. .. .. ..$ prior.nu            :List of 4
##   .. .. .. .. .. .. .. .. .. .. ..$ loglocation: num -5e-06
##   .. .. .. .. .. .. .. .. .. .. ..$ mean       : num 1
##   .. .. .. .. .. .. .. .. .. .. ..$ prec       : num 3
##   .. .. .. .. .. .. .. .. .. .. ..$ logscale   : num 1
##   .. .. .. .. .. .. .. .. .. ..$ theta.prior.prec    : num [1:2, 1:2] 0.1 0 0 0.1
##   .. .. .. .. .. .. .. .. .. ..$ start.nu            : num 0.5
##   .. .. .. .. .. .. .. .. .. ..$ integer.nu          : logi TRUE
##   .. .. .. .. .. .. .. .. .. ..$ start.theta         : num [1:2] 0 1.35
##   .. .. .. .. .. .. .. .. .. ..$ stationary          : logi TRUE
##   .. .. .. .. .. .. .. .. .. ..$ rspde.order         : num 2
##   .. .. .. .. .. .. .. .. .. ..$ dim                 : num 1
##   .. .. .. .. .. .. .. .. .. ..$ est_nu              : logi FALSE
##   .. .. .. .. .. .. .. .. .. ..$ nu.upper.bound      : num 2
##   .. .. .. .. .. .. .. .. .. ..$ prior.nu.dist       : chr "lognormal"
##   .. .. .. .. .. .. .. .. .. ..$ debug               : logi FALSE
##   .. .. .. .. .. .. .. .. .. ..$ type.rational.approx: chr "chebfun"
##   .. .. .. .. .. .. .. .. .. ..$ mesh                :Classes 'metric_graph', 'R6' <metric_graph>
##   Public:
##     add_mesh_observations: function (data = NULL, group = NULL) 
##     add_observations: function (data = NULL, edge_number = "edge_number", distance_on_edge = "distance_on_edge", 
##     build_mesh: function (h = NULL, n = NULL, continuous = TRUE, continuous.outs = FALSE, 
##     buildC: function (alpha = 2, edge_constraint = FALSE) 
##     buildDirectionalConstraints: function (alpha = 1) 
##     C: NULL
##     characteristics: list
##     check_distance_consistency: function () 
##     check_euclidean: function () 
##     clear_observations: function () 
##     clone: function (deep = FALSE) 
##     CoB: NULL
##     compute_characteristics: function (check_euclidean = FALSE) 
##     compute_fem: function (petrov = FALSE) 
##     compute_geodist: function (full = FALSE, obs = TRUE, group = NULL, verbose = 0) 
##     compute_geodist_mesh: function () 
##     compute_geodist_PtE: function (PtE, normalized = TRUE, include_vertices = TRUE, verbose = 0) 
##     compute_laplacian: function (full = FALSE, obs = TRUE, group = NULL, verbose = 0) 
##     compute_PtE_edges: function () 
##     compute_resdist: function (full = FALSE, obs = TRUE, group = NULL, check_euclidean = FALSE, 
##     compute_resdist_mesh: function () 
##     compute_resdist_PtE: function (PtE, normalized = TRUE, include_vertices = FALSE, check_euclidean = FALSE, 
##     coordinates: function (PtE = NULL, XY = NULL, normalized = TRUE) 
##     drop_na: function (...) 
##     E: 1 3 5 7 9 9 10 12 13 14 15 12 18 19 21 20 22 24 26 28 30 ...
##     edge_lengths: 0.0820202978316493 0.13610246403764 0.07378151878521 0.0 ...
##     edges: metric_graph_edges
##     edgeweight_to_data: function (loc = NULL, mesh = FALSE, data_loc = FALSE, weight_col = NULL, 
##     fem_basis: function (PtE) 
##     filter: function (..., .drop_na = FALSE, .drop_all_na = TRUE) 
##     geo_dist: list
##     get_data: function (group = NULL, tibble = TRUE, drop_na = FALSE, drop_all_na = TRUE) 
##     get_degrees: function (which = "degree") 
##     get_edge_lengths: function (unit = NULL) 
##     get_edge_weights: function (data.frame = FALSE, tibble = TRUE) 
##     get_groups: function (get_cols = FALSE) 
##     get_initial_graph: function () 
##     get_locations: function () 
##     get_mesh_locations: function (bru = FALSE, loc = NULL, normalized = TRUE) 
##     get_PtE: function () 
##     get_vertices_incomp_dir: function () 
##     initialize: function (edges = NULL, V = NULL, E = NULL, vertex_unit = NULL, 
##     is_tree: function () 
##     Laplacian: NULL
##     mesh: list
##     mesh_A: function (PtE) 
##     mutate: function (..., .drop_na = FALSE, .drop_all_na = TRUE) 
##     nE: 11104
##     nV: 8781
##     observation_to_vertex: function (tolerance = 1e-15, mesh_warning = TRUE) 
##     plot: function (data = NULL, newdata = NULL, group = 1, plotly = FALSE, 
##     plot_connections: function () 
##     plot_function: function (data = NULL, newdata = NULL, group = 1, X = NULL, plotly = FALSE, 
##     plot_movie: function (X, plotly = TRUE, vertex_size = 5, vertex_color = "black", 
##     print: function () 
##     process_data: function (data = NULL, edge_number = "edge_number", distance_on_edge = "distance_on_edge", 
##     prune_vertices: function (check_weights = TRUE, verbose = FALSE) 
##     PtV: NULL
##     res_dist: NULL
##     select: function (..., .drop_na = FALSE, .drop_all_na = TRUE) 
##     set_edge_weights: function (weights = rep(1, self$nE), kirchhoff_weights = NULL) 
##     summarise: function (..., .include_graph_groups = FALSE, .groups = NULL, 
##     summary: function (messages = FALSE, compute_characteristics = TRUE, check_euclidean = TRUE, 
##     V: -122.40171 -122.40078 -122.44449 -122.44331 -122.41216 - ...
##     vertices: metric_graph_vertices
##     VtEfirst: function () 
##   Private:
##     A: function (group = NULL, obs_to_vert = FALSE, drop_na = FALSE, 
##     add_vertices: function (PtE, tolerance = 1e-10, verbose) 
##     addinfo: FALSE
##     clear_initial_info: function () 
##     compute_degrees: function () 
##     compute_laplacian_PtE: function (PtE, normalized = TRUE, verbose = verbose) 
##     compute_lengths: function (longlat, unit, crs, proj4string, which_longlat, vertex_unit, 
##     connected: TRUE
##     coordinates_multiple_snaps: function (XY, tolerance, verbose = verbose, crs, proj4string, 
##     create_update_vertices: function () 
##     crs: crs
##     data: metric_graph_data, list
##     edge_weights: tbl_df, tbl, data.frame
##     find_edge_edge_points: function (tol, verbose, crs, proj4string, longlat, fact, which_longlat) 
##     find_mesh_bc: function () 
##     get_edge_weights_internal: function (data.frame = FALSE) 
##     group_col: .group
##     initial_edges_added: NULL
##     initial_graph: metric_graph, R6
##     kirchhoff_weights: NULL
##     length_unit: km
##     line_to_vertex: function (tolerance = 0, longlat = FALSE, fact, verbose, crs, 
##     longlat: TRUE
##     merge_close_vertices: function (tolerance, fact) 
##     merge.all.deg2: function () 
##     mesh_merge_deg2: function () 
##     mesh_merge_outs: function () 
##     move_V_first: function () 
##     plot_2d: function (line_width = 0.1, marker_size = 1, vertex_color = "black", 
##     plot_3d: function (line_width = 1, marker_size = 1, vertex_color = "rgb(0,0,0)", 
##     proj4string: NULL
##     prune_warning: FALSE
##     pruned: FALSE
##     PtE_to_mesh: function (PtE) 
##     ref_edges: 1 5502 2 359 3 4077 4 5117 5 7 5419 8 9 10 11 4817 4613  ...
##     remove_circles: function (threshold, verbose, longlat, unit, crs, proj4string, 
##     remove.first.deg2: function (res) 
##     set_first_weights: function (weights = rep(1, self$nE)) 
##     set_petrov_matrices: function () 
##     split_edge: function (Ei, t, tolerance = 0) 
##     temp_PtE: NULL
##     tolerance: list
##     transform: FALSE
##     vertex_unit: degrees
##     which_longlat: sf 
##   .. .. .. .. .. .. .. .. .. ..$ fem_mesh            :List of 4
##   .. .. .. .. .. .. .. .. .. .. ..$ c0:Formal class 'dgTMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. .. .. .. .. .. .. .. ..@ i       : int [1:13932] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. .. .. .. .. .. .. .. ..@ j       : int [1:13932] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. .. .. .. .. .. .. .. ..@ Dim     : int [1:2] 13932 13932
##   .. .. .. .. .. .. .. .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. .. .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. .. .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. .. .. .. .. .. .. ..@ x       : num [1:13932] 0.0534 0.0776 0.0408 0.0457 0.0367 ...
##   .. .. .. .. .. .. .. .. .. .. .. .. ..@ factors : list()
##   .. .. .. .. .. .. .. .. .. .. ..$ g1:Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. .. .. .. .. .. .. .. ..@ i       : int [1:44204] 0 5681 8781 11463 1 8781 11429 11463 13882 2 ...
##   .. .. .. .. .. .. .. .. .. .. .. .. ..@ p       : int [1:13933] 0 4 9 12 15 18 23 26 29 34 ...
##   .. .. .. .. .. .. .. .. .. .. .. .. ..@ Dim     : int [1:2] 13932 13932
##   .. .. .. .. .. .. .. .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. .. .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. .. .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. .. .. .. .. .. .. ..@ x       : num [1:44204] 210.6 -161.9 -24.4 -24.4 103.4 ...
##   .. .. .. .. .. .. .. .. .. .. .. .. ..@ factors : list()
##   .. .. .. .. .. .. .. .. .. .. ..$ g2:Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. .. .. .. .. .. .. .. ..@ i       : int [1:81554] 0 1 5399 5681 8781 11463 0 1 4450 8781 ...
##   .. .. .. .. .. .. .. .. .. .. .. .. ..@ p       : int [1:13933] 0 6 13 18 23 28 37 42 47 56 ...
##   .. .. .. .. .. .. .. .. .. .. .. .. ..@ Dim     : int [1:2] 13932 13932
##   .. .. .. .. .. .. .. .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. .. .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. .. .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. .. .. .. .. .. .. ..@ x       : num [1:81554] 1731368 28997 607384 -2117274 -125237 ...
##   .. .. .. .. .. .. .. .. .. .. .. .. ..@ factors : list()
##   .. .. .. .. .. .. .. .. .. .. ..$ g3:Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. .. .. .. .. .. .. .. ..@ i       : int [1:124984] 0 1 805 5399 5681 8781 11429 11463 13882 0 ...
##   .. .. .. .. .. .. .. .. .. .. .. .. ..@ p       : int [1:13933] 0 9 18 25 32 43 56 65 72 85 ...
##   .. .. .. .. .. .. .. .. .. .. .. .. ..@ Dim     : int [1:2] 13932 13932
##   .. .. .. .. .. .. .. .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. .. .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. .. .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. .. .. .. .. .. .. ..@ x       : num [1:124984] 1.84e+10 1.88e+08 -4.79e+08 9.57e+09 -2.57e+10 ...
##   .. .. .. .. .. .. .. .. .. .. .. .. ..@ factors : list()
##   .. .. .. .. .. .. .. .. .. ..$ parameterization    : chr "matern"
##   .. .. .. .. .. .. .. .. .. ..$ n.spde              : int 13932
##   .. .. .. .. .. .. .. .. .. ..- attr(*, "class")= chr [1:3] "rspde_metric_graph" "inla_rspde" "inla.cgeneric"
##   .. .. .. .. .. .. .. .. ..- attr(*, "class")= chr [1:3] "bru_mapper_inla_rspde" "bru_mapper" "list"
##   .. .. .. .. .. .. .. ..$ group    :List of 1
##   .. .. .. .. .. .. .. .. ..$ n: num 1
##   .. .. .. .. .. .. .. .. ..- attr(*, "class")= chr [1:3] "bru_mapper_index" "bru_mapper" "list"
##   .. .. .. .. .. .. .. ..$ replicate:List of 4
##   .. .. .. .. .. .. .. .. ..$ levels        : chr [1:4] "1" "2" "3" "4"
##   .. .. .. .. .. .. .. .. ..$ factor_mapping: chr "full"
##   .. .. .. .. .. .. .. .. ..$ indexed       : logi TRUE
##   .. .. .. .. .. .. .. .. ..$ n             : int 4
##   .. .. .. .. .. .. .. .. ..- attr(*, "class")= chr [1:4] "bru_mapper_factor_index" "bru_mapper_factor" "bru_mapper" "list"
##   .. .. .. .. .. .. ..$ n_multi          :List of 3
##   .. .. .. .. .. .. .. ..$ main     : num 13932
##   .. .. .. .. .. .. .. ..$ group    : num 1
##   .. .. .. .. .. .. .. ..$ replicate: int 4
##   .. .. .. .. .. .. ..$ n_inla_multi     :List of 3
##   .. .. .. .. .. .. .. ..$ main     : num 13932
##   .. .. .. .. .. .. .. ..$ group    : num 1
##   .. .. .. .. .. .. .. ..$ replicate: int 4
##   .. .. .. .. .. .. ..$ values_multi     :List of 3
##   .. .. .. .. .. .. .. ..$ main     : int [1:13932] 1 2 3 4 5 6 7 8 9 10 ...
##   .. .. .. .. .. .. .. ..$ group    : int 1
##   .. .. .. .. .. .. .. ..$ replicate: int [1:4] 1 2 3 4
##   .. .. .. .. .. .. ..$ values_inla_multi:List of 3
##   .. .. .. .. .. .. .. ..$ main     : int [1:13932] 1 2 3 4 5 6 7 8 9 10 ...
##   .. .. .. .. .. .. .. ..$ group    : int 1
##   .. .. .. .. .. .. .. ..$ replicate: int [1:4] 1 2 3 4
##   .. .. .. .. .. .. ..$ is_linear_multi  :List of 3
##   .. .. .. .. .. .. .. ..$ main     : logi TRUE
##   .. .. .. .. .. .. .. ..$ group    : logi TRUE
##   .. .. .. .. .. .. .. ..$ replicate: logi TRUE
##   .. .. .. .. .. .. ..$ n                : num 55728
##   .. .. .. .. .. .. ..$ n_inla           : num 55728
##   .. .. .. .. .. .. ..$ is_linear        : logi TRUE
##   .. .. .. .. .. .. ..- attr(*, "class")= chr [1:3] "bru_mapper_multi" "bru_mapper" "list"
##   .. .. .. .. .. ..$ scale : list()
##   .. .. .. .. .. .. ..- attr(*, "class")= chr [1:3] "bru_mapper_scale" "bru_mapper" "list"
##   .. .. .. .. ..$          : Named logi [1:2] TRUE TRUE
##   .. .. .. .. .. ..- attr(*, "names")= chr [1:2] "mapper" "scale"
##   .. .. .. .. ..$ is_linear: logi TRUE
##   .. .. .. .. ..$ n_multi  : Named int [1:2] 55728 NA
##   .. .. .. .. .. ..- attr(*, "names")= chr [1:2] "mapper" "scale"
##   .. .. .. .. ..$ n        : num 55728
##   .. .. .. .. ..$ names    : chr [1:2] "mapper" "scale"
##   .. .. .. .. ..- attr(*, "class")= chr [1:3] "bru_mapper_pipe" "bru_mapper" "list"
##   .. .. .. ..- attr(*, "class")= chr [1:2] "component" "list"
##   .. .. ..- attr(*, "class")= chr [1:2] "component_list" "list"
##   .. .. ..- attr(*, ".Environment")=<environment: R_GlobalEnv> 
##   .. ..$ formula:Class 'formula'  language BRU_response ~ f(Intercept, model = BRU_Intercept_main_model, ngroup = 1,      nrep = 1, values = BRU_Intercept_v| __truncated__ ...
##   .. .. .. ..- attr(*, ".Environment")=<environment: R_GlobalEnv> 
##   .. ..- attr(*, "class")= chr [1:2] "bru_model" "list"
##   ..$ lhoods         :List of 1
##   .. ..$ :List of 17
##   .. .. ..$ family        : chr "gaussian"
##   .. .. ..$ formula       :Class 'formula'  language speed ~ .
##   .. .. .. .. ..- attr(*, ".Environment")=<environment: 0x5a1a785e0428> 
##   .. .. ..$ response_data :List of 4
##   .. .. .. ..$ BRU_response: num [1:25842] 99.8 91.7 99.8 14.5 16.1 ...
##   .. .. .. ..$ BRU_E       : num 1
##   .. .. .. ..$ BRU_Ntrials : num 1
##   .. .. .. ..$ BRU_scale   : num 1
##   .. .. ..$ data          :List of 8
##   .. .. .. ..$ speed            : num [1:25842] 99.8 91.7 99.8 14.5 16.1 ...
##   .. .. .. ..$ SpeedLimit       : num [1:25842] 4.09 4.09 4.09 -1.04 -1.04 ...
##   .. .. .. ..$ .coord_x         : num [1:25842] -122 -122 -122 -122 -122 ...
##   .. .. .. ..$ .coord_y         : num [1:25842] 37.7 37.7 37.7 37.8 37.8 ...
##   .. .. .. ..$ .edge_number     : num [1:25842] 2 2 2 3 3 3 5 6 6 6 ...
##   .. .. .. ..$ .distance_on_edge: num [1:25842] 0.195 0.227 0.363 0.309 0.583 ...
##   .. .. .. ..$ .group           : chr [1:25842] "1" "1" "1" "1" ...
##   .. .. .. ..$ loc              : num [1:25842, 1:2] 2 2 2 3 3 3 5 6 6 6 ...
##   .. .. .. ..- attr(*, "class")= chr [1:2] "metric_graph_data" "list"
##   .. .. ..$ E             : num 1
##   .. .. ..$ Ntrials       : num 1
##   .. .. ..$ weights       : num 1
##   .. .. ..$ scale         : num 1
##   .. .. ..$ samplers      : NULL
##   .. .. ..$ linear        : logi TRUE
##   .. .. ..$ expr          : NULL
##   .. .. ..$ response      : chr "BRU_response"
##   .. .. ..$ inla.family   : chr "gaussian"
##   .. .. ..$ domain        : NULL
##   .. .. ..$ used          :List of 2
##   .. .. .. ..$ effect: chr [1:3] "Intercept" "SpeedLimit" "field"
##   .. .. .. ..$ latent: chr(0) 
##   .. .. .. ..- attr(*, "class")= chr "bru_used"
##   .. .. ..$ allow_combine : logi TRUE
##   .. .. ..$ control.family: NULL
##   .. .. ..- attr(*, "class")= chr [1:2] "bru_like" "list"
##   .. ..- attr(*, "class")= chr [1:2] "bru_like_list" "list"
##   ..$ options        :List of 14
##   .. ..$ bru_verbose      : num 0
##   .. ..$ bru_verbose_store: num Inf
##   .. ..$ bru_max_iter     : num 1
##   .. ..$ bru_run          : logi TRUE
##   .. ..$ bru_int_args     :List of 3
##   .. .. ..$ method: chr "stable"
##   .. .. ..$ nsub1 : num 30
##   .. .. ..$ nsub2 : num 9
##   .. ..$ bru_method       :List of 6
##   .. .. ..$ taylor         : chr "pandemic"
##   .. .. ..$ search         : chr "all"
##   .. .. ..$ factor         : num 1.62
##   .. .. ..$ rel_tol        : num 0.1
##   .. .. ..$ max_step       : num 2
##   .. .. ..$ line_opt_method: chr "onestep"
##   .. ..$ bru_compress_cp  : logi TRUE
##   .. ..$ bru_debug        : logi FALSE
##   .. ..$ E                : num 1
##   .. ..$ Ntrials          : num 1
##   .. ..$ control.compute  :List of 3
##   .. .. ..$ config: logi TRUE
##   .. .. ..$ dic   : logi TRUE
##   .. .. ..$ waic  : logi TRUE
##   .. ..$ control.inla     :List of 1
##   .. .. ..$ int.strategy: chr "auto"
##   .. ..$ control.fixed    :List of 1
##   .. .. ..$ expand.factor.strategy: chr "inla"
##   .. ..$ verbose          : logi FALSE
##   .. ..- attr(*, "class")= chr [1:2] "bru_options" "list"
##   ..$ inlabru_version: Named chr "2.10.1.9007"
##   .. ..- attr(*, "names")= chr "version"
##   ..$ INLA_version   : Named chr "24.05.18-2"
##   .. ..- attr(*, "names")= chr "version"
##   ..- attr(*, "class")= chr [1:2] "bru_info" "list"
##  - attr(*, "class")= chr [1:3] "bru" "iinla" "inla"
stat.time.fin <- Sys.time()
print(stat.time.fin - stat.time.ini)
## Time difference of 3.265924 mins
summary(rspde_fit_stat)
## inlabru version: 2.10.1.9007
## INLA version: 24.05.18-2
## Components:
## Intercept: main = linear(1), group = exchangeable(1L), replicate = iid(1L)
## SpeedLimit: main = linear(SpeedLimit), group = exchangeable(1L), replicate = iid(1L)
## field: main = cgeneric(loc), group = exchangeable(1L), replicate = iid(data_rspde_bru_stat[["repl"]])
## Likelihoods:
##   Family: 'gaussian'
##     Data class: 'metric_graph_data', 'list'
##     Predictor: speed ~ .
## Time used:
##     Pre = 1.58, Running = 79.4, Post = 4.53, Total = 85.5 
## Fixed effects:
##              mean    sd 0.025quant 0.5quant 0.975quant   mode kld
## Intercept  29.587 0.286     29.036   29.584     30.156 29.584   0
## SpeedLimit  6.793 0.232      6.337    6.795      7.238  6.795   0
## 
## Random effects:
##   Name     Model
##     field CGeneric
## 
## Model hyperparameters:
##                                           mean    sd 0.025quant 0.5quant
## Precision for the Gaussian observations  0.009 0.000      0.009    0.009
## Theta1 for field                         2.865 0.018      2.830    2.865
## Theta2 for field                        -1.402 0.085     -1.569   -1.402
##                                         0.975quant   mode
## Precision for the Gaussian observations      0.009  0.009
## Theta1 for field                             2.900  2.865
## Theta2 for field                            -1.233 -1.404
## 
## Deviance Information Criterion (DIC) ...............: 202520.08
## Deviance Information Criterion (DIC, saturated) ....: 32617.72
## Effective number of parameters .....................: 6802.12
## 
## Watanabe-Akaike information criterion (WAIC) ...: 202882.24
## Effective number of parameters .................: 5829.84
## 
## Marginal log-Likelihood:  -104433.51 
##  is computed 
## Posterior summaries for the linear predictor and the fitted values are computed
## (Posterior marginals needs also 'control.compute=list(return.marginals.predictor=TRUE)')
fit.rspde = rspde.result(rspde_fit_stat, "field", rspde_model_stat)
summary(fit.rspde)
##              mean        sd 0.025quant  0.5quant 0.975quant      mode
## std.dev 17.546800 0.3087070  16.950200 17.543400  18.162600 17.535700
## range    0.246957 0.0210105   0.208468  0.245999   0.290947  0.243823

1.2 Nonstationary model

  • Observe that we are using the computed parameters from the stationary model as initial values for the nonstationary models.
nonstat.time.ini <- Sys.time()
################################################################################
############################# NON STATIONARY MODEL #############################
################################################################################

B.sigma = cbind(0, 1, 0, mesh$SpeedLimit, 0)
B.range = cbind(0, 0, 1, 0, mesh$SpeedLimit)
init.vec.theta = c(fit.rspde$summary.log.std.dev$mode, 
                   fit.rspde$summary.log.range$mode, 
                   rep(0, (ncol(B.sigma)-3)))

rspde_model_nonstat <- rspde.metric_graph(sf_graph,
                                          start.theta = init.vec.theta,
                                          theta.prior.mean = init.vec.theta,
                                          B.sigma = B.sigma,
                                          B.range = B.range,
                                          parameterization = "matern",
                                          nu = 0.5)
str(rspde_model_nonstat)
## List of 21
##  $ f                   :List of 3
##   ..$ model   : chr "cgeneric"
##   ..$ n       : int 13932
##   ..$ cgeneric:List of 5
##   .. ..$ model: chr "inla_cgeneric_rspde_nonstat_int_model"
##   .. ..$ shlib: chr "/home/rierasl/R/x86_64-pc-linux-gnu-library/4.4/INLA/bin/linux/64bit/external/rSPDE/librSPDE.so"
##   .. ..$ n    : int 13932
##   .. ..$ debug: logi FALSE
##   .. ..$ data :List of 5
##   .. .. ..$ ints      :List of 5
##   .. .. .. ..$ n          : int 13932
##   .. .. .. ..$ debug      : int 0
##   .. .. .. ..$ graph_opt_i: int [1:29068] 0 0 0 0 1 1 1 1 1 2 ...
##   .. .. .. ..$ graph_opt_j: int [1:29068] 0 5681 8781 11463 1 8781 11429 11463 13882 2 ...
##   .. .. .. ..$ alpha      : int 1
##   .. .. ..$ doubles   :List of 2
##   .. .. .. ..$ start.theta     : num [1:4] 2.86 -1.4 0 0
##   .. .. .. ..$ theta.prior.mean: num [1:4] 2.86 -1.4 0 0
##   .. .. ..$ characters:List of 3
##   .. .. .. ..$ model            : chr "inla_cgeneric_rspde_nonstat_int_model"
##   .. .. .. ..$ shlib            : chr "/home/rierasl/R/x86_64-pc-linux-gnu-library/4.4/INLA/bin/linux/64bit/external/rSPDE/librSPDE.so"
##   .. .. .. ..$ prior.theta.param: chr "theta"
##   .. .. ..$ matrices  :List of 3
##   .. .. .. ..$ B_tau           : num [1:69662] 13932 5 -0.693 -1 0.5 ...
##   .. .. .. ..$ B_kappa         : num [1:69662] 13932 5 0.693 0 -1 ...
##   .. .. .. ..$ theta.prior.prec: num [1:18] 4 4 0.1 0 0 0 0 0.1 0 0 ...
##   .. .. ..$ smatrices :List of 2
##   .. .. .. ..$ C: num [1:41799] 13932 13932 13932 0 1 ...
##   .. .. .. ..$ G: num [1:132615] 13932 13932 44204 0 5681 ...
##   .. ..- attr(*, "class")= chr "inla.cgeneric"
##  $ cgeneric_type       : chr "int_alpha"
##  $ nu                  : num 0.5
##  $ theta.prior.mean    : num [1:4] 2.86 -1.4 0 0
##  $ prior.nu            :List of 4
##   ..$ loglocation: num -5e-06
##   ..$ mean       : num 1
##   ..$ prec       : num 3
##   ..$ logscale   : num 1
##  $ theta.prior.prec    : num [1:4, 1:4] 0.1 0 0 0 0 0.1 0 0 0 0 ...
##  $ start.nu            : num 0.5
##  $ integer.nu          : logi TRUE
##  $ start.theta         : num [1:4] 2.86 -1.4 0 0
##  $ stationary          : logi FALSE
##  $ rspde.order         : num 2
##  $ dim                 : num 1
##  $ est_nu              : logi FALSE
##  $ nu.upper.bound      : num 2
##  $ prior.nu.dist       : chr "lognormal"
##  $ debug               : logi FALSE
##  $ type.rational.approx: chr "chebfun"
##  $ mesh                :Classes 'metric_graph', 'R6' <metric_graph>
##   Public:
##     add_mesh_observations: function (data = NULL, group = NULL) 
##     add_observations: function (data = NULL, edge_number = "edge_number", distance_on_edge = "distance_on_edge", 
##     build_mesh: function (h = NULL, n = NULL, continuous = TRUE, continuous.outs = FALSE, 
##     buildC: function (alpha = 2, edge_constraint = FALSE) 
##     buildDirectionalConstraints: function (alpha = 1) 
##     C: NULL
##     characteristics: list
##     check_distance_consistency: function () 
##     check_euclidean: function () 
##     clear_observations: function () 
##     clone: function (deep = FALSE) 
##     CoB: NULL
##     compute_characteristics: function (check_euclidean = FALSE) 
##     compute_fem: function (petrov = FALSE) 
##     compute_geodist: function (full = FALSE, obs = TRUE, group = NULL, verbose = 0) 
##     compute_geodist_mesh: function () 
##     compute_geodist_PtE: function (PtE, normalized = TRUE, include_vertices = TRUE, verbose = 0) 
##     compute_laplacian: function (full = FALSE, obs = TRUE, group = NULL, verbose = 0) 
##     compute_PtE_edges: function () 
##     compute_resdist: function (full = FALSE, obs = TRUE, group = NULL, check_euclidean = FALSE, 
##     compute_resdist_mesh: function () 
##     compute_resdist_PtE: function (PtE, normalized = TRUE, include_vertices = FALSE, check_euclidean = FALSE, 
##     coordinates: function (PtE = NULL, XY = NULL, normalized = TRUE) 
##     drop_na: function (...) 
##     E: 1 3 5 7 9 9 10 12 13 14 15 12 18 19 21 20 22 24 26 28 30 ...
##     edge_lengths: 0.0820202978316493 0.13610246403764 0.07378151878521 0.0 ...
##     edges: metric_graph_edges
##     edgeweight_to_data: function (loc = NULL, mesh = FALSE, data_loc = FALSE, weight_col = NULL, 
##     fem_basis: function (PtE) 
##     filter: function (..., .drop_na = FALSE, .drop_all_na = TRUE) 
##     geo_dist: list
##     get_data: function (group = NULL, tibble = TRUE, drop_na = FALSE, drop_all_na = TRUE) 
##     get_degrees: function (which = "degree") 
##     get_edge_lengths: function (unit = NULL) 
##     get_edge_weights: function (data.frame = FALSE, tibble = TRUE) 
##     get_groups: function (get_cols = FALSE) 
##     get_initial_graph: function () 
##     get_locations: function () 
##     get_mesh_locations: function (bru = FALSE, loc = NULL, normalized = TRUE) 
##     get_PtE: function () 
##     get_vertices_incomp_dir: function () 
##     initialize: function (edges = NULL, V = NULL, E = NULL, vertex_unit = NULL, 
##     is_tree: function () 
##     Laplacian: NULL
##     mesh: list
##     mesh_A: function (PtE) 
##     mutate: function (..., .drop_na = FALSE, .drop_all_na = TRUE) 
##     nE: 11104
##     nV: 8781
##     observation_to_vertex: function (tolerance = 1e-15, mesh_warning = TRUE) 
##     plot: function (data = NULL, newdata = NULL, group = 1, plotly = FALSE, 
##     plot_connections: function () 
##     plot_function: function (data = NULL, newdata = NULL, group = 1, X = NULL, plotly = FALSE, 
##     plot_movie: function (X, plotly = TRUE, vertex_size = 5, vertex_color = "black", 
##     print: function () 
##     process_data: function (data = NULL, edge_number = "edge_number", distance_on_edge = "distance_on_edge", 
##     prune_vertices: function (check_weights = TRUE, verbose = FALSE) 
##     PtV: NULL
##     res_dist: NULL
##     select: function (..., .drop_na = FALSE, .drop_all_na = TRUE) 
##     set_edge_weights: function (weights = rep(1, self$nE), kirchhoff_weights = NULL) 
##     summarise: function (..., .include_graph_groups = FALSE, .groups = NULL, 
##     summary: function (messages = FALSE, compute_characteristics = TRUE, check_euclidean = TRUE, 
##     V: -122.40171 -122.40078 -122.44449 -122.44331 -122.41216 - ...
##     vertices: metric_graph_vertices
##     VtEfirst: function () 
##   Private:
##     A: function (group = NULL, obs_to_vert = FALSE, drop_na = FALSE, 
##     add_vertices: function (PtE, tolerance = 1e-10, verbose) 
##     addinfo: FALSE
##     clear_initial_info: function () 
##     compute_degrees: function () 
##     compute_laplacian_PtE: function (PtE, normalized = TRUE, verbose = verbose) 
##     compute_lengths: function (longlat, unit, crs, proj4string, which_longlat, vertex_unit, 
##     connected: TRUE
##     coordinates_multiple_snaps: function (XY, tolerance, verbose = verbose, crs, proj4string, 
##     create_update_vertices: function () 
##     crs: crs
##     data: metric_graph_data, list
##     edge_weights: tbl_df, tbl, data.frame
##     find_edge_edge_points: function (tol, verbose, crs, proj4string, longlat, fact, which_longlat) 
##     find_mesh_bc: function () 
##     get_edge_weights_internal: function (data.frame = FALSE) 
##     group_col: .group
##     initial_edges_added: NULL
##     initial_graph: metric_graph, R6
##     kirchhoff_weights: NULL
##     length_unit: km
##     line_to_vertex: function (tolerance = 0, longlat = FALSE, fact, verbose, crs, 
##     longlat: TRUE
##     merge_close_vertices: function (tolerance, fact) 
##     merge.all.deg2: function () 
##     mesh_merge_deg2: function () 
##     mesh_merge_outs: function () 
##     move_V_first: function () 
##     plot_2d: function (line_width = 0.1, marker_size = 1, vertex_color = "black", 
##     plot_3d: function (line_width = 1, marker_size = 1, vertex_color = "rgb(0,0,0)", 
##     proj4string: NULL
##     prune_warning: FALSE
##     pruned: FALSE
##     PtE_to_mesh: function (PtE) 
##     ref_edges: 1 5502 2 359 3 4077 4 5117 5 7 5419 8 9 10 11 4817 4613  ...
##     remove_circles: function (threshold, verbose, longlat, unit, crs, proj4string, 
##     remove.first.deg2: function (res) 
##     set_first_weights: function (weights = rep(1, self$nE)) 
##     set_petrov_matrices: function () 
##     split_edge: function (Ei, t, tolerance = 0) 
##     temp_PtE: NULL
##     tolerance: list
##     transform: FALSE
##     vertex_unit: degrees
##     which_longlat: sf 
##  $ fem_mesh            :List of 4
##   ..$ c0:Formal class 'dgTMatrix' [package "Matrix"] with 6 slots
##   .. .. ..@ i       : int [1:13932] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. ..@ j       : int [1:13932] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. ..@ Dim     : int [1:2] 13932 13932
##   .. .. ..@ Dimnames:List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : NULL
##   .. .. ..@ x       : num [1:13932] 0.0534 0.0776 0.0408 0.0457 0.0367 ...
##   .. .. ..@ factors : list()
##   ..$ g1:Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. ..@ i       : int [1:44204] 0 5681 8781 11463 1 8781 11429 11463 13882 2 ...
##   .. .. ..@ p       : int [1:13933] 0 4 9 12 15 18 23 26 29 34 ...
##   .. .. ..@ Dim     : int [1:2] 13932 13932
##   .. .. ..@ Dimnames:List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : NULL
##   .. .. ..@ x       : num [1:44204] 210.6 -161.9 -24.4 -24.4 103.4 ...
##   .. .. ..@ factors : list()
##   ..$ g2:Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. ..@ i       : int [1:81554] 0 1 5399 5681 8781 11463 0 1 4450 8781 ...
##   .. .. ..@ p       : int [1:13933] 0 6 13 18 23 28 37 42 47 56 ...
##   .. .. ..@ Dim     : int [1:2] 13932 13932
##   .. .. ..@ Dimnames:List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : NULL
##   .. .. ..@ x       : num [1:81554] 1731368 28997 607384 -2117274 -125237 ...
##   .. .. ..@ factors : list()
##   ..$ g3:Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. ..@ i       : int [1:124984] 0 1 805 5399 5681 8781 11429 11463 13882 0 ...
##   .. .. ..@ p       : int [1:13933] 0 9 18 25 32 43 56 65 72 85 ...
##   .. .. ..@ Dim     : int [1:2] 13932 13932
##   .. .. ..@ Dimnames:List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : NULL
##   .. .. ..@ x       : num [1:124984] 1.84e+10 1.88e+08 -4.79e+08 9.57e+09 -2.57e+10 ...
##   .. .. ..@ factors : list()
##  $ parameterization    : chr "matern"
##  $ n.spde              : int 13932
##  - attr(*, "class")= chr [1:3] "rspde_metric_graph" "inla_rspde" "inla.cgeneric"
data_rspde_bru_nonstat <- graph_data_rspde(rspde_model_nonstat,
                                           repl = ".all",
                                           loc_name = "loc")
str(data_rspde_bru_nonstat)
## List of 4
##  $ data :List of 8
##   ..$ speed            : num [1:25842] 99.8 91.7 99.8 14.5 16.1 ...
##   ..$ SpeedLimit       : num [1:25842] 4.09 4.09 4.09 -1.04 -1.04 ...
##   ..$ .coord_x         : num [1:25842] -122 -122 -122 -122 -122 ...
##   ..$ .coord_y         : num [1:25842] 37.7 37.7 37.7 37.8 37.8 ...
##   ..$ .edge_number     : num [1:25842] 2 2 2 3 3 3 5 6 6 6 ...
##   ..$ .distance_on_edge: num [1:25842] 0.195 0.227 0.363 0.309 0.583 ...
##   ..$ .group           : chr [1:25842] "1" "1" "1" "1" ...
##   ..$ loc              : num [1:25842, 1:2] 2 2 2 3 3 3 5 6 6 6 ...
##   ..- attr(*, "class")= chr [1:2] "metric_graph_data" "list"
##  $ index:List of 3
##   ..$ field      : int [1:55728] 1 2 3 4 5 6 7 8 9 10 ...
##   ..$ field.group: int [1:55728] 1 1 1 1 1 1 1 1 1 1 ...
##   ..$ field.repl : int [1:55728] 1 1 1 1 1 1 1 1 1 1 ...
##   ..- attr(*, "class")= chr [1:2] "inla_rspde_index" "list"
##   ..- attr(*, "rspde.order")= num 0
##   ..- attr(*, "integer_nu")= logi TRUE
##   ..- attr(*, "n.mesh")= int 13932
##   ..- attr(*, "name")= chr "field"
##   ..- attr(*, "n.group")= int 1
##   ..- attr(*, "n.repl")= int 4
##  $ repl : chr [1:25842] "1" "1" "1" "1" ...
##  $ basis:Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. ..@ i       : int [1:51684] 0 1 3 8 9 10 11 12 13 14 ...
##   .. ..@ p       : int [1:55729] 0 0 0 2 2 10 16 16 16 21 ...
##   .. ..@ Dim     : int [1:2] 25842 55728
##   .. ..@ Dimnames:List of 2
##   .. .. ..$ : NULL
##   .. .. ..$ : NULL
##   .. ..@ x       : num [1:51684] 0.416 0.319 0.382 0.224 0.509 ...
##   .. ..@ factors : list()
cmp_nonstat = speed ~ -1 +
  Intercept(1) +
  SpeedLimit +
  field(loc, model = rspde_model_nonstat,
        replicate = data_rspde_bru_nonstat[["repl"]])

rspde_fit_nonstat <-
  bru(cmp_nonstat,
      data = data_rspde_bru_nonstat[["data"]],
      family = "gaussian",
      options = list(verbose = FALSE)
  )
str(rspde_fit_nonstat)
## List of 56
##  $ names.fixed                : chr [1:2] "Intercept" "SpeedLimit"
##  $ summary.fixed              :'data.frame': 2 obs. of  7 variables:
##   ..$ mean      : num [1:2] 29.58 6.81
##   ..$ sd        : num [1:2] 0.286 0.233
##   ..$ 0.025quant: num [1:2] 29.03 6.34
##   ..$ 0.5quant  : num [1:2] 29.58 6.81
##   ..$ 0.975quant: num [1:2] 30.15 7.26
##   ..$ mode      : num [1:2] 29.58 6.81
##   ..$ kld       : num [1:2] 3.32e-08 7.27e-08
##  $ marginals.fixed            :List of 2
##   ..$ Intercept : num [1:43, 1:2] 28.4 28.6 28.7 28.9 29 ...
##   .. ..- attr(*, "dimnames")=List of 2
##   .. .. ..$ : NULL
##   .. .. ..$ : chr [1:2] "x" "y"
##   ..$ SpeedLimit: num [1:43, 1:2] 5.85 5.96 6.09 6.26 6.34 ...
##   .. ..- attr(*, "dimnames")=List of 2
##   .. .. ..$ : NULL
##   .. .. ..$ : chr [1:2] "x" "y"
##  $ summary.lincomb            :'data.frame': 0 obs. of  0 variables
##  $ marginals.lincomb          : NULL
##  $ size.lincomb               : NULL
##  $ summary.lincomb.derived    :'data.frame': 0 obs. of  0 variables
##  $ marginals.lincomb.derived  : NULL
##  $ size.lincomb.derived       : NULL
##  $ mlik                       : num [1:2, 1] -104443 -104440
##   ..- attr(*, "dimnames")=List of 2
##   .. ..$ : chr [1:2] "log marginal-likelihood (integration)" "log marginal-likelihood (Gaussian)"
##   .. ..$ : NULL
##  $ cpo                        :List of 3
##   ..$ cpo    : logi(0) 
##   ..$ pit    : logi(0) 
##   ..$ failure: logi(0) 
##  $ gcpo                       :List of 5
##   ..$ gcpo  : NULL
##   ..$ kld   : NULL
##   ..$ mean  : NULL
##   ..$ sd    : NULL
##   ..$ groups: NULL
##  $ po                         :List of 1
##   ..$ po: num [1:25842] 0.0278 0.0328 0.0283 0.0339 0.0318 ...
##  $ waic                       :List of 4
##   ..$ waic       : num 202892
##   ..$ p.eff      : num 5838
##   ..$ local.waic : num [1:25842] 7.51 6.92 7.52 6.82 7.04 ...
##   ..$ local.p.eff: num [1:25842] 0.1705 0.0439 0.1944 0.024 0.0703 ...
##  $ residuals                  :List of 1
##   ..$ deviance.residuals: num [1:25842] 0.847 -0.536 0.83 -0.468 -0.616 ...
##  $ model.random               : chr "CGeneric"
##  $ summary.random             :List of 1
##   ..$ field:'data.frame':    55728 obs. of  8 variables:
##   .. ..$ ID        : num [1:55728] 1 2 3 4 5 6 7 8 9 10 ...
##   .. ..$ mean      : num [1:55728] -3.88 -1.89 33.04 28.79 -12.03 ...
##   .. ..$ sd        : num [1:55728] 11.78 11.98 10.07 15.66 5.42 ...
##   .. ..$ 0.025quant: num [1:55728] -27 -25.41 13.34 -1.92 -22.66 ...
##   .. ..$ 0.5quant  : num [1:55728] -3.87 -1.89 33.03 28.79 -12.02 ...
##   .. ..$ 0.975quant: num [1:55728] 19.2 21.6 52.8 59.5 -1.4 ...
##   .. ..$ mode      : num [1:55728] -3.87 -1.89 33.03 28.78 -12.02 ...
##   .. ..$ kld       : num [1:55728] 5.49e-11 6.36e-11 4.54e-10 1.80e-10 3.99e-11 ...
##  $ marginals.random           :List of 1
##   ..$ field:List of 55728
##   .. ..$ index.1    : num [1:43, 1:2] -54.3 -47.9 -40.4 -31.3 -27 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.2    : num [1:43, 1:2] -53.2 -46.7 -39 -29.8 -25.4 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.3    : num [1:43, 1:2] -9.88 -4.39 1.96 9.65 13.34 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.4    : num [1:43, 1:2] -38.3 -29.68 -19.72 -7.68 -1.92 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.5    : num [1:43, 1:2] -35.2 -32.2 -28.8 -24.7 -22.7 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.6    : num [1:43, 1:2] -19.42 -16.42 -12.93 -8.69 -6.66 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.7    : num [1:43, 1:2] -61.5 -54.2 -45.7 -35.5 -30.6 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.8    : num [1:43, 1:2] -69.1 -60.6 -50.8 -39 -33.3 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.9    : num [1:43, 1:2] -30.4 -27.5 -24 -19.9 -17.9 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.10   : num [1:43, 1:2] -37.6 -34.8 -31.5 -27.5 -25.6 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.11   : num [1:43, 1:2] -45.3 -41 -36 -29.9 -27 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.12   : num [1:43, 1:2] -31.3 -27.5 -23.2 -17.8 -15.3 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.13   : num [1:43, 1:2] -21.68 -18.58 -14.97 -10.59 -8.49 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.14   : num [1:43, 1:2] -25.7 -23.1 -20 -16.3 -14.5 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.15   : num [1:43, 1:2] -34.6 -32 -29 -25.3 -23.6 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.16   : num [1:43, 1:2] -29.7 -27.3 -24.4 -21 -19.4 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.17   : num [1:43, 1:2] -63.1 -57 -50 -41.4 -37.3 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.18   : num [1:43, 1:2] -76 -67.9 -58.6 -47.3 -41.9 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.19   : num [1:43, 1:2] -59.2 -53.8 -47.6 -40.1 -36.5 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.20   : num [1:43, 1:2] -55.3 -49.7 -43.1 -35.2 -31.4 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.21   : num [1:43, 1:2] -29.7 -27.2 -24.3 -20.7 -19 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.22   : num [1:43, 1:2] -40.3 -36 -31 -25 -22.1 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.23   : num [1:43, 1:2] -27.7 -24.4 -20.7 -16.1 -13.9 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.24   : num [1:43, 1:2] -23.7 -21.6 -19.3 -16.4 -15 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.25   : num [1:43, 1:2] -22.1 -20.1 -17.7 -14.9 -13.5 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.26   : num [1:43, 1:2] -42.1 -35.5 -27.9 -18.6 -14.2 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.27   : num [1:43, 1:2] -3.75 -1.56 0.99 4.09 5.57 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.28   : num [1:43, 1:2] -37.6 -34.4 -30.6 -26.1 -23.9 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.29   : num [1:43, 1:2] -54.4 -49.5 -43.8 -36.9 -33.6 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.30   : num [1:43, 1:2] -49.5 -44.1 -37.8 -30.2 -26.5 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.31   : num [1:43, 1:2] -29.1 -26.3 -23.2 -19.3 -17.5 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.32   : num [1:43, 1:2] -30.2 -28.1 -25.6 -22.6 -21.2 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.33   : num [1:43, 1:2] -67.3 -58.1 -47.6 -34.8 -28.6 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.34   : num [1:43, 1:2] -65.1 -56 -45.5 -32.8 -26.8 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.35   : num [1:43, 1:2] -39.5 -34.2 -28 -20.5 -16.9 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.36   : num [1:43, 1:2] -45.5 -39.4 -32.3 -23.7 -19.5 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.37   : num [1:43, 1:2] -71.6 -64.4 -56.1 -46 -41.1 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.38   : num [1:43, 1:2] -69.8 -62.5 -54.1 -43.9 -39 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.39   : num [1:43, 1:2] -34 -30.4 -26.1 -21 -18.5 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.40   : num [1:43, 1:2] -32.1 -29.2 -25.7 -21.6 -19.6 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.41   : num [1:43, 1:2] -38.5 -32.9 -26.5 -18.7 -14.9 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.42   : num [1:43, 1:2] -38.9 -33.4 -27.1 -19.4 -15.7 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.43   : num [1:43, 1:2] -67.8 -59.4 -49.7 -37.9 -32.2 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.44   : num [1:43, 1:2] -60.5 -53 -44.4 -33.8 -28.8 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.45   : num [1:43, 1:2] -64 -56.1 -46.9 -35.8 -30.5 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.46   : num [1:43, 1:2] -60.6 -53.9 -46 -36.5 -32 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.47   : num [1:43, 1:2] -52.1 -47.3 -41.7 -34.9 -31.7 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.48   : num [1:43, 1:2] -68.8 -60.8 -51.5 -40.3 -34.9 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.49   : num [1:43, 1:2] -67.9 -59.9 -50.7 -39.6 -34.2 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.50   : num [1:43, 1:2] -49.1 -43.7 -37.4 -29.8 -26.1 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.51   : num [1:43, 1:2] -67.5 -59.4 -49.9 -38.4 -32.9 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.52   : num [1:43, 1:2] -50.6 -45.3 -39.2 -31.8 -28.2 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.53   : num [1:43, 1:2] -66.1 -58 -48.5 -37.1 -31.6 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.54   : num [1:43, 1:2] -51.3 -44.9 -37.5 -28.6 -24.3 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.55   : num [1:43, 1:2] -65.2 -57.1 -47.8 -36.5 -31.1 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.56   : num [1:43, 1:2] -62.5 -54.9 -46.2 -35.5 -30.5 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.57   : num [1:43, 1:2] -38.1 -33 -27.1 -19.9 -16.4 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.58   : num [1:43, 1:2] -46.7 -41.1 -34.6 -26.8 -23 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.59   : num [1:43, 1:2] -51.2 -46.3 -40.6 -33.7 -30.3 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.60   : num [1:43, 1:2] -64.2 -57.4 -49.6 -40.2 -35.6 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.61   : num [1:43, 1:2] -70.6 -62.9 -53.9 -43 -37.8 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.62   : num [1:43, 1:2] -41.3 -37.3 -32.6 -27 -24.3 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.63   : num [1:43, 1:2] -51.4 -45.6 -38.9 -30.8 -26.9 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.64   : num [1:43, 1:2] -51 -45.1 -38.2 -29.9 -25.9 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.65   : num [1:43, 1:2] -44 -38.9 -33 -25.9 -22.5 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.66   : num [1:43, 1:2] -71.8 -63.9 -54.6 -43.4 -38.1 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.67   : num [1:43, 1:2] -68.7 -61.2 -52.4 -41.8 -36.8 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.68   : num [1:43, 1:2] -49.5 -43.7 -36.9 -28.7 -24.8 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.69   : num [1:43, 1:2] -47.3 -41.9 -35.5 -27.8 -24.1 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.70   : num [1:43, 1:2] -48.1 -42.7 -36.5 -28.8 -25.2 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.71   : num [1:43, 1:2] -51.1 -45.3 -38.7 -30.6 -26.8 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.72   : num [1:43, 1:2] -69.7 -60.8 -50.4 -37.8 -31.8 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.73   : num [1:43, 1:2] -67.9 -59.1 -48.9 -36.5 -30.6 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.74   : num [1:43, 1:2] -70.4 -61.4 -51.1 -38.5 -32.5 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.75   : num [1:43, 1:2] -71.8 -62.7 -52.1 -39.2 -33.1 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.76   : num [1:43, 1:2] -60.2 -52.5 -43.7 -33.1 -28 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.77   : num [1:43, 1:2] -67.8 -59.2 -49.2 -37.1 -31.4 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.78   : num [1:43, 1:2] -54.6 -47.8 -39.9 -30.3 -25.8 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.79   : num [1:43, 1:2] -54.3 -47.5 -39.7 -30.3 -25.8 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.80   : num [1:43, 1:2] -51 -44.7 -37.3 -28.4 -24.2 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.81   : num [1:43, 1:2] -51.9 -45.3 -37.8 -28.6 -24.2 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.82   : num [1:43, 1:2] -52.4 -45.7 -38.1 -28.8 -24.3 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.83   : num [1:43, 1:2] -35 -31 -26.3 -20.6 -17.8 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.84   : num [1:43, 1:2] -29.7 -26.4 -22.6 -17.9 -15.7 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.85   : num [1:43, 1:2] -63.5 -54.7 -44.4 -32 -26 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.86   : num [1:43, 1:2] -65.6 -56.6 -46.1 -33.4 -27.4 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.87   : num [1:43, 1:2] -51.6 -45 -37.4 -28.1 -23.7 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.88   : num [1:43, 1:2] -50.5 -44.1 -36.6 -27.5 -23.2 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.89   : num [1:43, 1:2] -63.5 -54.8 -44.7 -32.5 -26.6 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.90   : num [1:43, 1:2] -61.7 -53.2 -43.3 -31.3 -25.5 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.91   : num [1:43, 1:2] -28.4 -25.4 -22 -17.8 -15.8 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.92   : num [1:43, 1:2] -23.6 -21.2 -18.5 -15.1 -13.5 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.93   : num [1:43, 1:2] -52.3 -45.6 -37.9 -28.6 -24.1 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.94   : num [1:43, 1:2] -52.3 -45.6 -37.9 -28.5 -24 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.95   : num [1:43, 1:2] -21.1 -18.6 -15.8 -12.3 -10.6 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.96   : num [1:43, 1:2] -11.659 -8.882 -5.662 -1.749 0.129 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.97   : num [1:43, 1:2] -41.2 -36.2 -30.4 -23.4 -20.1 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.98   : num [1:43, 1:2] -39.7 -35.6 -30.8 -25 -22.2 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.99   : num [1:43, 1:2] -29.8 -26.9 -23.5 -19.3 -17.4 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. .. [list output truncated]
##  $ size.random                :List of 1
##   ..$ :List of 5
##   .. ..$ n     : num 13932
##   .. ..$ N     : num 13932
##   .. ..$ Ntotal: num 55728
##   .. ..$ ngroup: num 1
##   .. ..$ nrep  : num 4
##  $ summary.linear.predictor   :'data.frame': 81572 obs. of  7 variables:
##   ..$ mean      : num [1:81572] 92.8 93.1 93.8 14.7 18.8 ...
##   ..$ sd        : num [1:81572] 5.78 5.65 6.6 4.99 6 ...
##   ..$ 0.025quant: num [1:81572] 81.42 82.05 80.83 4.86 7.05 ...
##   ..$ 0.5quant  : num [1:81572] 92.8 93.1 93.8 14.7 18.8 ...
##   ..$ 0.975quant: num [1:81572] 104.1 104.2 106.7 24.4 30.6 ...
##   ..$ mode      : num [1:81572] 92.8 93.1 93.8 14.7 18.8 ...
##   ..$ kld       : num [1:81572] 5.42e-11 4.60e-11 4.84e-11 3.79e-11 2.50e-11 ...
##  $ marginals.linear.predictor : NULL
##  $ summary.fitted.values      :'data.frame': 81572 obs. of  6 variables:
##   ..$ mean      : num [1:81572] 92.8 93.1 93.8 14.7 18.8 ...
##   ..$ sd        : num [1:81572] 5.78 5.65 6.6 4.99 6 ...
##   ..$ 0.025quant: num [1:81572] 81.42 82.05 80.83 4.86 7.05 ...
##   ..$ 0.5quant  : num [1:81572] 92.8 93.1 93.8 14.7 18.8 ...
##   ..$ 0.975quant: num [1:81572] 104.1 104.2 106.7 24.4 30.6 ...
##   ..$ mode      : num [1:81572] 92.7 93.1 93.8 14.7 18.8 ...
##  $ marginals.fitted.values    : NULL
##  $ size.linear.predictor      :List of 5
##   ..$ n     : num 55730
##   ..$ N     : num 55730
##   ..$ Ntotal: num 81572
##   ..$ ngroup: num 1
##   ..$ nrep  : num 2
##  $ summary.hyperpar           :'data.frame': 5 obs. of  6 variables:
##   ..$ mean      : num [1:5] 0.00878 2.86675 -1.3978 0.05519 0.09547
##   ..$ sd        : num [1:5] 0.000111 0.017821 0.082047 0.041043 0.101129
##   ..$ 0.025quant: num [1:5] 0.00856 2.83255 -1.55508 -0.01758 -0.08295
##   ..$ 0.5quant  : num [1:5] 0.00878 2.86645 -1.39921 0.05284 0.08946
##   ..$ 0.975quant: num [1:5] 0.009 2.903 -1.232 0.143 0.312
##   ..$ mode      : num [1:5] 0.00878 2.86517 -1.40534 0.04127 0.0598
##  $ marginals.hyperpar         :List of 5
##   ..$ Precision for the Gaussian observations: num [1:43, 1:2] 0.00832 0.00837 0.00844 0.00852 0.00856 ...
##   .. ..- attr(*, "hyperid")= chr "65001|INLA.Data1"
##   .. ..- attr(*, "dimnames")=List of 2
##   .. .. ..$ : NULL
##   .. .. ..$ : chr [1:2] "x" "y"
##   ..$ Theta1 for field                       : num [1:43, 1:2] 2.79 2.8 2.81 2.83 2.83 ...
##   .. ..- attr(*, "hyperid")= chr ""
##   .. ..- attr(*, "dimnames")=List of 2
##   .. .. ..$ : NULL
##   .. .. ..$ : chr [1:2] "x" "y"
##   ..$ Theta2 for field                       : num [1:43, 1:2] -1.73 -1.69 -1.64 -1.58 -1.56 ...
##   .. ..- attr(*, "hyperid")= chr ""
##   .. ..- attr(*, "dimnames")=List of 2
##   .. .. ..$ : NULL
##   .. .. ..$ : chr [1:2] "x" "y"
##   ..$ Theta3 for field                       : num [1:43, 1:2] -0.0916 -0.0744 -0.0542 -0.0295 -0.0176 ...
##   .. ..- attr(*, "hyperid")= chr ""
##   .. ..- attr(*, "dimnames")=List of 2
##   .. .. ..$ : NULL
##   .. .. ..$ : chr [1:2] "x" "y"
##   ..$ Theta4 for field                       : num [1:43, 1:2] -0.263 -0.221 -0.172 -0.112 -0.083 ...
##   .. ..- attr(*, "hyperid")= chr ""
##   .. ..- attr(*, "dimnames")=List of 2
##   .. .. ..$ : NULL
##   .. .. ..$ : chr [1:2] "x" "y"
##  $ internal.summary.hyperpar  :'data.frame': 5 obs. of  6 variables:
##   ..$ mean      : num [1:5] -4.7353 2.8668 -1.3975 0.0556 0.0966
##   ..$ sd        : num [1:5] 0.0126 0.0178 0.082 0.041 0.101
##   ..$ 0.025quant: num [1:5] -4.7602 2.8326 -1.5551 -0.0176 -0.083
##   ..$ 0.5quant  : num [1:5] -4.7353 2.8665 -1.3992 0.0528 0.0895
##   ..$ 0.975quant: num [1:5] -4.71 2.903 -1.232 0.143 0.312
##   ..$ mode      : num [1:5] -4.7352 2.8653 -1.4049 0.042 0.0616
##  $ internal.marginals.hyperpar:List of 5
##   ..$ Log precision for the Gaussian observations: num [1:43, 1:2] -4.79 -4.78 -4.77 -4.76 -4.76 ...
##   .. ..- attr(*, "hyperid")= chr "65001|INLA.Data1"
##   .. ..- attr(*, "dimnames")=List of 2
##   .. .. ..$ : NULL
##   .. .. ..$ : chr [1:2] "x" "y"
##   ..$ Theta1 for field                           : num [1:43, 1:2] 2.79 2.8 2.81 2.83 2.83 ...
##   .. ..- attr(*, "hyperid")= chr ""
##   .. ..- attr(*, "dimnames")=List of 2
##   .. .. ..$ : NULL
##   .. .. ..$ : chr [1:2] "x" "y"
##   ..$ Theta2 for field                           : num [1:43, 1:2] -1.73 -1.69 -1.64 -1.58 -1.56 ...
##   .. ..- attr(*, "hyperid")= chr ""
##   .. ..- attr(*, "dimnames")=List of 2
##   .. .. ..$ : NULL
##   .. .. ..$ : chr [1:2] "x" "y"
##   ..$ Theta3 for field                           : num [1:43, 1:2] -0.0916 -0.0744 -0.0542 -0.0295 -0.0176 ...
##   .. ..- attr(*, "hyperid")= chr ""
##   .. ..- attr(*, "dimnames")=List of 2
##   .. .. ..$ : NULL
##   .. .. ..$ : chr [1:2] "x" "y"
##   ..$ Theta4 for field                           : num [1:43, 1:2] -0.263 -0.221 -0.172 -0.112 -0.083 ...
##   .. ..- attr(*, "hyperid")= chr ""
##   .. ..- attr(*, "dimnames")=List of 2
##   .. .. ..$ : NULL
##   .. .. ..$ : chr [1:2] "x" "y"
##  $ offset.linear.predictor    : num [1:81572] 0 0 0 0 0 0 0 0 0 0 ...
##  $ model.spde2.blc            : NULL
##  $ summary.spde2.blc          : list()
##  $ marginals.spde2.blc        : NULL
##  $ size.spde2.blc             : NULL
##  $ model.spde3.blc            : NULL
##  $ summary.spde3.blc          : list()
##  $ marginals.spde3.blc        : NULL
##  $ size.spde3.blc             : NULL
##  $ logfile                    : chr [1:672] "[PANUA] PARDISO License is expired." "[PANUA] Please obtain a new PARDISO license at https://www.panua.ch/products/pardiso" "        Read ntt 24 1 with max.threads 24" "        Found num.threads = 24:1 max_threads = 24" ...
##  $ misc                       :List of 22
##   ..$ cov.intern                        : num [1:5, 1:5] 1.60e-04 1.28e-06 -3.40e-04 -1.53e-05 -3.36e-05 ...
##   ..$ cor.intern                        : num [1:5, 1:5] 1 0.00565 -0.3259 -0.03041 -0.02728 ...
##   ..$ cov.intern.eigenvalues            : num [1:5] 1.98e-04 9.10e-05 8.64e-05 6.56e-03 1.14e-02
##   ..$ cov.intern.eigenvectors           : num [1:5, 1:5] -0.7022 -0.7078 0.0731 0.0182 0.0166 ...
##   ..$ reordering                        : int [1:55730] 46917 46938 49524 49544 46164 46221 43220 43231 46251 43354 ...
##   ..$ theta.tags                        : chr [1:5] "Log precision for the Gaussian observations" "Theta1 for field" "Theta2 for field" "Theta3 for field" ...
##   ..$ log.posterior.mode                : num -104426
##   ..$ stdev.corr.negative               : num [1:5] 1.003 1.004 0.998 1.031 0.768
##   ..$ stdev.corr.positive               : num [1:5] 0.997 0.997 1.002 0.97 1.302
##   ..$ to.theta                          :List of 5
##   .. ..$ Log precision for the Gaussian observations:function (x)  
##   .. ..$ Theta1 for field                           :function (x)  
##   .. ..$ Theta2 for field                           :function (x)  
##   .. ..$ Theta3 for field                           :function (x)  
##   .. ..$ Theta4 for field                           :function (x)  
##   ..$ from.theta                        :List of 5
##   .. ..$ Log precision for the Gaussian observations:function (x)  
##   .. ..$ Theta1 for field                           :function (x)  
##   .. ..$ Theta2 for field                           :function (x)  
##   .. ..$ Theta3 for field                           :function (x)  
##   .. ..$ Theta4 for field                           :function (x)  
##   ..$ mode.status                       : num 0
##   ..$ lincomb.derived.correlation.matrix: NULL
##   ..$ lincomb.derived.covariance.matrix : NULL
##   ..$ opt.directions                    : num [1:5, 1:5] -0.0461 -0.0225 0.0162 0.6214 0.7817 ...
##   .. ..- attr(*, "dimnames")=List of 2
##   .. .. ..$ : chr [1:5] "theta:1" "theta:2" "theta:3" "theta:4" ...
##   .. .. ..$ : chr [1:5] "dir:1" "dir:2" "dir:3" "dir:4" ...
##   ..$ configs                           :List of 17
##   .. ..$ .preopt          : logi TRUE
##   .. ..$ lite             : logi FALSE
##   .. ..$ mpred            : int 25842
##   .. ..$ npred            : int 55730
##   .. ..$ mnpred           : int 81572
##   .. ..$ Npred            : int 25842
##   .. ..$ n                : int 55730
##   .. ..$ nz               : int 153769
##   .. ..$ prior_nz         : int 116274
##   .. ..$ ntheta           : int 5
##   .. ..$ nconfig          : int 27
##   .. ..$ offsets          : num [1:81572] 0 0 0 0 0 0 0 0 0 0 ...
##   .. ..$ contents         :List of 3
##   .. .. ..$ tag   : chr [1:5] "APredictor" "Predictor" "field" "Intercept" ...
##   .. .. ..$ start : int [1:5] 1 25843 81573 137301 137302
##   .. .. ..$ length: int [1:5] 25842 55730 55728 1 1
##   .. ..$ A                :Formal class 'dgTMatrix' [package "Matrix"] with 6 slots
##   .. .. .. ..@ i       : int [1:55730] 2 3 4 5 6 7 8 9 10 11 ...
##   .. .. .. ..@ j       : int [1:55730] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. ..$ : NULL
##   .. .. .. .. ..$ : NULL
##   .. .. .. ..@ x       : num [1:55730] 1 1 1 1 1 1 1 1 1 1 ...
##   .. .. .. ..@ factors : list()
##   .. ..$ pA               :Formal class 'dgTMatrix' [package "Matrix"] with 6 slots
##   .. .. .. ..@ i       : int [1:103342] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. ..@ j       : int [1:103342] 0 0 0 0 0 0 0 0 0 0 ...
##   .. .. .. ..@ Dim     : int [1:2] 25842 55730
##   .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. ..$ : NULL
##   .. .. .. .. ..$ : NULL
##   .. .. .. ..@ x       : num [1:103342] 1 1 1 1 1 1 1 1 1 1 ...
##   .. .. .. ..@ factors : list()
##   .. ..$ config           :List of 27
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:5] -4.7352 2.865 -1.406 0.0401 0.0567
##   .. .. .. .. ..- attr(*, "names")= chr [1:5] "Log precision for the Gaussian observations" "Theta1 for field" "Theta2 for field" "Theta3 for field" ...
##   .. .. .. ..$ log.posterior     : num -4.6
##   .. .. .. ..$ log.posterior.orig: num 0
##   .. .. .. ..$ mean              : num [1:55730] -3.88 -1.88 33.12 28.85 -12.05 ...
##   .. .. .. ..$ improved.mean     : num [1:55730] -3.88 -1.88 33.12 28.85 -12.05 ...
##   .. .. .. ..$ skewness          : logi [1:55730] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:153769] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:153769] 0.04345 0.02209 0.01207 0.00862 0.03683 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:153769] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:153769] 138.6 143.5 100.1 242.4 29.4 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:116274] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:116274] 0.04345 0.02209 0.00965 0.00862 0.01054 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:25842, 1:3] 0.06136 -0.01247 0.05263 -0.00145 -0.02388 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:25842, 1:2] 92.8 93.2 93.8 14.6 18.8 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:55730, 1:2] 29.59 6.81 -3.88 -1.88 33.12 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:5] -4.7594 2.8406 -1.4035 0.0407 0.0573
##   .. .. .. .. ..- attr(*, "names")= chr [1:5] "Log precision for the Gaussian observations" "Theta1 for field" "Theta2 for field" "Theta3 for field" ...
##   .. .. .. ..$ log.posterior     : num -6.26
##   .. .. .. ..$ log.posterior.orig: num -2.99
##   .. .. .. ..$ mean              : num [1:55730] -3.83 -1.87 32.66 28.42 -11.68 ...
##   .. .. .. ..$ improved.mean     : num [1:55730] -3.83 -1.87 32.66 28.42 -11.68 ...
##   .. .. .. ..$ skewness          : logi [1:55730] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:153769] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:153769] 0.04576 0.02327 0.0125 0.00905 0.03673 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:153769] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:153769] 131.9 136.5 97.7 232 29.2 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:116274] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:116274] 0.04576 0.02327 0.01014 0.00905 0.01108 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:25842, 1:3] 0.06175 -0.01022 0.05357 -0.00245 -0.02351 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:25842, 1:2] 92.6 92.9 93.5 14.8 18.8 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:55730, 1:2] 29.52 6.91 -3.83 -1.87 32.66 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:5] -4.7108 2.8896 -1.4086 0.0394 0.0561
##   .. .. .. .. ..- attr(*, "names")= chr [1:5] "Log precision for the Gaussian observations" "Theta1 for field" "Theta2 for field" "Theta3 for field" ...
##   .. .. .. ..$ log.posterior     : num -6.32
##   .. .. .. ..$ log.posterior.orig: num -3.05
##   .. .. .. ..$ mean              : num [1:55730] -3.92 -1.9 33.59 29.28 -12.42 ...
##   .. .. .. ..$ improved.mean     : num [1:55730] -3.92 -1.9 33.59 29.28 -12.42 ...
##   .. .. .. ..$ skewness          : logi [1:55730] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:153769] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:153769] 0.0412 0.021 0.0117 0.0082 0.037 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:153769] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:153769] 145.7 150.8 102.6 253.3 29.5 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:116274] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:116274] 0.04124 0.02097 0.00919 0.0082 0.01003 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:25842, 1:3] 0.061008 -0.01474 0.05172 -0.000381 -0.024247 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:25842, 1:2] 93 93.4 94 14.5 18.8 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:55730, 1:2] 29.65 6.72 -3.92 -1.9 33.59 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:5] -4.7197 2.8502 -1.403 0.0484 0.0538
##   .. .. .. .. ..- attr(*, "names")= chr [1:5] "Log precision for the Gaussian observations" "Theta1 for field" "Theta2 for field" "Theta3 for field" ...
##   .. .. .. ..$ log.posterior     : num -6.29
##   .. .. .. ..$ log.posterior.orig: num -3.02
##   .. .. .. ..$ mean              : num [1:55730] -3.84 -1.87 33.87 29.53 -12.14 ...
##   .. .. .. ..$ improved.mean     : num [1:55730] -3.84 -1.87 33.87 29.53 -12.14 ...
##   .. .. .. ..$ skewness          : logi [1:55730] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:153769] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:153769] 0.04556 0.02316 0.01193 0.00846 0.03704 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:153769] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:153769] 132.7 137.4 101.4 247.3 29.2 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:116274] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:116274] 0.04556 0.02316 0.00948 0.00846 0.01035 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:25842, 1:3] 0.0609 -0.01311 0.05613 -0.00165 -0.02485 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:25842, 1:2] 93 93.2 93.5 14.7 18.9 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:55730, 1:2] 29.58 6.83 -3.84 -1.87 33.87 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:5] -4.7507 2.88 -1.4091 0.0316 0.0596
##   .. .. .. .. ..- attr(*, "names")= chr [1:5] "Log precision for the Gaussian observations" "Theta1 for field" "Theta2 for field" "Theta3 for field" ...
##   .. .. .. ..$ log.posterior     : num -6.29
##   .. .. .. ..$ log.posterior.orig: num -3.02
##   .. .. .. ..$ mean              : num [1:55730] -3.92 -1.9 32.38 28.17 -11.95 ...
##   .. .. .. ..$ improved.mean     : num [1:55730] -3.92 -1.9 32.38 28.17 -11.95 ...
##   .. .. .. ..$ skewness          : logi [1:55730] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:153769] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:153769] 0.04142 0.02107 0.01221 0.00878 0.03662 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:153769] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:153769] 144.9 149.8 98.8 237.5 29.5 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:116274] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:116274] 0.04142 0.02107 0.00983 0.00878 0.01074 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:25842, 1:3] 0.06178 -0.01185 0.04923 -0.00126 -0.02292 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:25842, 1:2] 92.6 93.1 94.1 14.6 18.7 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:55730, 1:2] 29.59 6.8 -3.92 -1.9 32.38 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:5] -4.7292 2.8589 -1.4047 0.0204 0.0647
##   .. .. .. .. ..- attr(*, "names")= chr [1:5] "Log precision for the Gaussian observations" "Theta1 for field" "Theta2 for field" "Theta3 for field" ...
##   .. .. .. ..$ log.posterior     : num -6.31
##   .. .. .. ..$ log.posterior.orig: num -3.04
##   .. .. .. ..$ mean              : num [1:55730] -3.99 -1.94 31.14 27.16 -11.6 ...
##   .. .. .. ..$ improved.mean     : num [1:55730] -3.99 -1.94 31.14 27.16 -11.6 ...
##   .. .. .. ..$ skewness          : logi [1:55730] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:153769] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:153769] 0.04249 0.02161 0.01349 0.00987 0.03852 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:153769] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:153769] 141.5 146.3 89.8 212 27.9 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:116274] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:116274] 0.04249 0.02161 0.01106 0.00987 0.01208 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:25842, 1:3] 0.06605 -0.01045 0.04779 -0.00176 -0.02273 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:25842, 1:2] 92.3 92.9 94.4 14.7 18.7 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:55730, 1:2] 29.56 6.81 -3.99 -1.94 31.14 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:5] -4.7411 2.8711 -1.4074 0.0596 0.0487
##   .. .. .. .. ..- attr(*, "names")= chr [1:5] "Log precision for the Gaussian observations" "Theta1 for field" "Theta2 for field" "Theta3 for field" ...
##   .. .. .. ..$ log.posterior     : num -6.31
##   .. .. .. ..$ log.posterior.orig: num -3.04
##   .. .. .. ..$ mean              : num [1:55730] -3.76 -1.83 35.15 30.62 -12.45 ...
##   .. .. .. ..$ improved.mean     : num [1:55730] -3.76 -1.83 35.15 30.62 -12.45 ...
##   .. .. .. ..$ skewness          : logi [1:55730] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:153769] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:153769] 0.04443 0.02258 0.01083 0.00753 0.03533 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:153769] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:153769] 135.8 140.6 111.1 276.9 30.8 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:116274] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:116274] 0.04443 0.02258 0.00843 0.00753 0.00921 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:25842, 1:3] 0.0566 -0.0145 0.0576 -0.0012 -0.025 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:25842, 1:2] 93.3 93.4 93.2 14.6 19 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:55730, 1:2] 29.6 6.82 -3.76 -1.83 35.15 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:5] -4.7258 2.8386 -1.5887 0.0598 0.1093
##   .. .. .. .. ..- attr(*, "names")= chr [1:5] "Log precision for the Gaussian observations" "Theta1 for field" "Theta2 for field" "Theta3 for field" ...
##   .. .. .. ..$ log.posterior     : num -6.16
##   .. .. .. ..$ log.posterior.orig: num -2.89
##   .. .. .. ..$ mean              : num [1:55730] -2.78 -1.18 31.24 24.85 -11.77 ...
##   .. .. .. ..$ improved.mean     : num [1:55730] -2.78 -1.18 31.24 24.85 -11.77 ...
##   .. .. .. ..$ skewness          : logi [1:55730] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:153769] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:153769] 0.03816 0.01977 0.01125 0.00787 0.03615 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:153769] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:153769] 131.9 133.7 105.1 250.8 30.3 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:116274] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:116274] 0.03816 0.01977 0.00881 0.00787 0.00962 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:25842, 1:3] 0.06485 -0.010066 0.055724 0.000432 -0.023156 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:25842, 1:2] 92.5 92.9 93.5 14.4 18.7 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:55730, 1:2] 29.4 7.17 -2.78 -1.18 31.24 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:5] -4.745141 2.893109 -1.211812 0.019103 0.000694
##   .. .. .. .. ..- attr(*, "names")= chr [1:5] "Log precision for the Gaussian observations" "Theta1 for field" "Theta2 for field" "Theta3 for field" ...
##   .. .. .. ..$ log.posterior     : num -5.96
##   .. .. .. ..$ log.posterior.orig: num -2.69
##   .. .. .. ..$ mean              : num [1:55730] -5.1 -2.75 35.18 32.84 -12.35 ...
##   .. .. .. ..$ improved.mean     : num [1:55730] -5.1 -2.75 35.18 32.84 -12.35 ...
##   .. .. .. ..$ skewness          : logi [1:55730] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:153769] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:153769] 0.05008 0.02514 0.01303 0.00949 0.03765 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:153769] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:153769] 143.5 152.5 95.2 231.8 28.4 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:116274] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:116274] 0.05008 0.02514 0.01064 0.00949 0.01163 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:25842, 1:3] 0.058 -0.0145 0.0508 -0.0034 -0.0246 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:25842, 1:2] 93.1 93.4 93.9 14.9 18.9 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:55730, 1:2] 29.78 6.44 -5.1 -2.75 35.18 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:5] -4.739 2.889 -1.309 0.161 0.36
##   .. .. .. .. ..- attr(*, "names")= chr [1:5] "Log precision for the Gaussian observations" "Theta1 for field" "Theta2 for field" "Theta3 for field" ...
##   .. .. .. ..$ log.posterior     : num -6.45
##   .. .. .. ..$ log.posterior.orig: num -3.18
##   .. .. .. ..$ mean              : num [1:55730] -3.57 -1.67 31.23 28.86 -11.37 ...
##   .. .. .. ..$ improved.mean     : num [1:55730] -3.57 -1.67 31.23 28.86 -11.37 ...
##   .. .. .. ..$ skewness          : logi [1:55730] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:153769] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:153769] 0.0438 0.0225 0.0139 0.0102 0.0388 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:153769] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:153769] 130.6 133.4 88.1 216.2 27.5 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:116274] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:116274] 0.0438 0.0225 0.0115 0.0102 0.0126 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:25842, 1:3] 0.06612 -0.00935 0.04873 -0.00217 -0.02219 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:25842, 1:2] 92.2 92.8 94.2 14.7 18.6 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:55730, 1:2] 29.48 6.83 -3.57 -1.67 31.23 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:5] -4.7328 2.8508 -1.4631 -0.0315 -0.1222
##   .. .. .. .. ..- attr(*, "names")= chr [1:5] "Log precision for the Gaussian observations" "Theta1 for field" "Theta2 for field" "Theta3 for field" ...
##   .. .. .. ..$ log.posterior     : num -7.17
##   .. .. .. ..$ log.posterior.orig: num -3.91
##   .. .. .. ..$ mean              : num [1:55730] -3.76 -1.86 32.06 25.07 -12 ...
##   .. .. .. ..$ improved.mean     : num [1:55730] -3.76 -1.86 32.06 25.07 -12 ...
##   .. .. .. ..$ skewness          : logi [1:55730] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:153769] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:153769] 0.04328 0.0219 0.01158 0.00832 0.03623 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:153769] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:153769] 141.7 148.1 102.6 229.2 30.1 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:116274] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:116274] 0.04328 0.0219 0.00916 0.00832 0.00989 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:25842, 1:3] 0.06578 -0.00826 0.05802 -0.0016 -0.02488 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:25842, 1:2] 92.3 92.7 93.2 14.7 18.9 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:55730, 1:2] 29.53 6.96 -3.76 -1.86 32.06 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:5] -4.7401 2.9088 -1.279 0.0896 0.1647
##   .. .. .. .. ..- attr(*, "names")= chr [1:5] "Log precision for the Gaussian observations" "Theta1 for field" "Theta2 for field" "Theta3 for field" ...
##   .. .. .. ..$ log.posterior     : num -5.52
##   .. .. .. ..$ log.posterior.orig: num -2.25
##   .. .. .. ..$ mean              : num [1:55730] -4.37 -2.2 34.36 32.15 -12.3 ...
##   .. .. .. ..$ improved.mean     : num [1:55730] -4.37 -2.2 34.36 32.15 -12.3 ...
##   .. .. .. ..$ skewness          : logi [1:55730] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:153769] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:153769] 0.04482 0.02273 0.01246 0.00893 0.03718 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:153769] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:153769] 142.7 148.5 98.1 247 29 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:116274] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:116274] 0.04482 0.02273 0.01006 0.00893 0.01103 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:25842, 1:3] 0.05849 -0.01495 0.049 -0.00188 -0.0237 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:25842, 1:2] 93.1 93.4 94.2 14.7 18.8 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:55730, 1:2] 29.7 6.56 -4.37 -2.2 34.36 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:5] -4.72865 2.86724 -1.51635 0.02158 -0.00228
##   .. .. .. .. ..- attr(*, "names")= chr [1:5] "Log precision for the Gaussian observations" "Theta1 for field" "Theta2 for field" "Theta3 for field" ...
##   .. .. .. ..$ log.posterior     : num -5.8
##   .. .. .. ..$ log.posterior.orig: num -2.53
##   .. .. .. ..$ mean              : num [1:55730] -3.36 -1.55 32.89 26.54 -12.28 ...
##   .. .. .. ..$ improved.mean     : num [1:55730] -3.36 -1.55 32.89 26.54 -12.28 ...
##   .. .. .. ..$ skewness          : logi [1:55730] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:153769] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:153769] 0.0395 0.0202 0.0108 0.0075 0.0355 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:153769] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:153769] 142.1 146.3 109.7 262.2 30.9 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:116274] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:116274] 0.0395 0.02018 0.00835 0.0075 0.00907 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:25842, 1:3] 6.15e-02 -1.23e-02 5.57e-02 9.57e-05 -2.42e-02 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:25842, 1:2] 92.8 93.1 93.5 14.5 18.8 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:55730, 1:2] 29.53 6.97 -3.36 -1.55 32.89 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:5] -4.732 2.8862 -1.3466 -0.0141 -0.0437
##   .. .. .. .. ..- attr(*, "names")= chr [1:5] "Log precision for the Gaussian observations" "Theta1 for field" "Theta2 for field" "Theta3 for field" ...
##   .. .. .. ..$ log.posterior     : num -5.85
##   .. .. .. ..$ log.posterior.orig: num -2.59
##   .. .. .. ..$ mean              : num [1:55730] -4.5 -2.31 32.82 28.54 -12.14 ...
##   .. .. .. ..$ improved.mean     : num [1:55730] -4.5 -2.31 32.82 28.54 -12.14 ...
##   .. .. .. ..$ skewness          : logi [1:55730] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:153769] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:153769] 0.04375 0.02206 0.01265 0.00917 0.0375 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:153769] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:153769] 150.1 157.6 95.6 225.3 28.8 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:116274] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:116274] 0.04375 0.02206 0.01023 0.00917 0.01113 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:25842, 1:3] 0.063 -0.0121 0.0498 -0.0019 -0.0239 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:25842, 1:2] 92.6 93.1 94.1 14.7 18.8 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:55730, 1:2] 29.68 6.65 -4.5 -2.31 32.82 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:5] -4.7262 2.879 -1.4463 0.0902 0.2204
##   .. .. .. .. ..- attr(*, "names")= chr [1:5] "Log precision for the Gaussian observations" "Theta1 for field" "Theta2 for field" "Theta3 for field" ...
##   .. .. .. ..$ log.posterior     : num -6.02
##   .. .. .. ..$ log.posterior.orig: num -2.75
##   .. .. .. ..$ mean              : num [1:55730] -3.35 -1.51 30.73 26.79 -11.61 ...
##   .. .. .. ..$ improved.mean     : num [1:55730] -3.35 -1.51 30.73 26.79 -11.61 ...
##   .. .. .. ..$ skewness          : logi [1:55730] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:153769] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:153769] 0.03894 0.02006 0.01286 0.00925 0.03795 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:153769] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:153769] 139.4 141.8 93.2 226.9 28.5 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:116274] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:116274] 0.03894 0.02006 0.01042 0.00925 0.01143 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:25842, 1:3] 0.06628 -0.01054 0.0479 -0.00044 -0.02202 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:25842, 1:2] 92.3 92.9 94.4 14.5 18.6 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:55730, 1:2] 29.49 6.91 -3.35 -1.51 30.73 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:5] -4.7234 2.8783 -1.3451 0.0109 -0.0535
##   .. .. .. .. ..- attr(*, "names")= chr [1:5] "Log precision for the Gaussian observations" "Theta1 for field" "Theta2 for field" "Theta3 for field" ...
##   .. .. .. ..$ log.posterior     : num -5.95
##   .. .. .. ..$ log.posterior.orig: num -2.68
##   .. .. .. ..$ mean              : num [1:55730] -4.33 -2.23 35.3 30.66 -12.59 ...
##   .. .. .. ..$ improved.mean     : num [1:55730] -4.33 -2.23 35.3 30.66 -12.59 ...
##   .. .. .. ..$ skewness          : logi [1:55730] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:153769] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:153769] 0.04658 0.02348 0.01136 0.00801 0.0363 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:153769] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:153769] 142 149 106 258 30 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:116274] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:116274] 0.04658 0.02348 0.00892 0.00801 0.0097 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:25842, 1:3] 0.05847 -0.01434 0.05761 -0.00185 -0.02583 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:25842, 1:2] 93.2 93.3 93.3 14.7 19 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:55730, 1:2] 29.69 6.67 -4.33 -2.23 35.3 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:5] -4.718 2.871 -1.445 0.115 0.211
##   .. .. .. .. ..- attr(*, "names")= chr [1:5] "Log precision for the Gaussian observations" "Theta1 for field" "Theta2 for field" "Theta3 for field" ...
##   .. .. .. ..$ log.posterior     : num -6.02
##   .. .. .. ..$ log.posterior.orig: num -2.75
##   .. .. .. ..$ mean              : num [1:55730] -3.25 -1.47 33.18 28.98 -12.08 ...
##   .. .. .. ..$ improved.mean     : num [1:55730] -3.25 -1.47 33.18 28.98 -12.08 ...
##   .. .. .. ..$ skewness          : logi [1:55730] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:153769] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:153769] 0.04145 0.02134 0.01153 0.00806 0.03669 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:153769] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:153769] 131.6 134.1 103.8 261.1 29.7 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:116274] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:116274] 0.04145 0.02134 0.00907 0.00806 0.00995 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:25842, 1:3] 0.06158 -0.01304 0.05514 -0.00033 -0.0239 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:25842, 1:2] 92.9 93.2 93.6 14.5 18.8 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:55730, 1:2] 29.51 6.93 -3.25 -1.47 33.18 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:5] -4.7209 2.89 -1.2751 0.0795 0.1692
##   .. .. .. .. ..- attr(*, "names")= chr [1:5] "Log precision for the Gaussian observations" "Theta1 for field" "Theta2 for field" "Theta3 for field" ...
##   .. .. .. ..$ log.posterior     : num -6.61
##   .. .. .. ..$ log.posterior.orig: num -3.34
##   .. .. .. ..$ mean              : num [1:55730] -4.44 -2.24 33.19 31.06 -11.98 ...
##   .. .. .. ..$ improved.mean     : num [1:55730] -4.44 -2.24 33.19 31.06 -11.98 ...
##   .. .. .. ..$ skewness          : logi [1:55730] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:153769] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:153769] 0.04585 0.02325 0.01362 0.00992 0.03891 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:153769] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:153769] 139.7 145.4 90.2 222.8 27.5 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:116274] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:116274] 0.04585 0.02325 0.01117 0.00992 0.01225 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:25842, 1:3] 0.06243 -0.01364 0.04757 -0.00234 -0.02351 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:25842, 1:2] 92.8 93.3 94.4 14.7 18.7 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:55730, 1:2] 29.67 6.58 -4.44 -2.24 33.19 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:5] -4.70945 2.84844 -1.51243 0.01155 0.00224
##   .. .. .. .. ..- attr(*, "names")= chr [1:5] "Log precision for the Gaussian observations" "Theta1 for field" "Theta2 for field" "Theta3 for field" ...
##   .. .. .. ..$ log.posterior     : num -6.25
##   .. .. .. ..$ log.posterior.orig: num -2.98
##   .. .. .. ..$ mean              : num [1:55730] -3.42 -1.58 31.81 25.73 -11.99 ...
##   .. .. .. ..$ improved.mean     : num [1:55730] -3.42 -1.58 31.81 25.73 -11.99 ...
##   .. .. .. ..$ skewness          : logi [1:55730] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:153769] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:153769] 0.0404 0.02064 0.01174 0.00832 0.03704 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:153769] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:153769] 139.2 143.2 101.1 237.2 29.5 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:116274] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:116274] 0.0404 0.02064 0.00926 0.00832 0.01007 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:25842, 1:3] 0.065323 -0.011095 0.05452 -0.000301 -0.024086 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:25842, 1:2] 92.5 93 93.7 14.5 18.8 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:55730, 1:2] 29.51 6.98 -3.42 -1.58 31.81 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:5] -4.75903 2.86969 -1.34555 0.00397 -0.05035
##   .. .. .. .. ..- attr(*, "names")= chr [1:5] "Log precision for the Gaussian observations" "Theta1 for field" "Theta2 for field" "Theta3 for field" ...
##   .. .. .. ..$ log.posterior     : num -5.96
##   .. .. .. ..$ log.posterior.orig: num -2.69
##   .. .. .. ..$ mean              : num [1:55730] -4.33 -2.23 34.19 29.65 -12.19 ...
##   .. .. .. ..$ improved.mean     : num [1:55730] -4.33 -2.23 34.19 29.65 -12.19 ...
##   .. .. .. ..$ skewness          : logi [1:55730] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:153769] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:153769] 0.0468 0.0236 0.0118 0.0085 0.036 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:153769] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:153769] 141 148 103 244 30 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:116274] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:116274] 0.04675 0.02357 0.00947 0.0085 0.01031 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:25842, 1:3] 0.05929 -0.01175 0.05512 -0.00254 -0.02457 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:25842, 1:2] 92.9 93.1 93.4 14.8 19 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:55730, 1:2] 29.64 6.74 -4.33 -2.23 34.19 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:5] -4.753 2.863 -1.445 0.108 0.214
##   .. .. .. .. ..- attr(*, "names")= chr [1:5] "Log precision for the Gaussian observations" "Theta1 for field" "Theta2 for field" "Theta3 for field" ...
##   .. .. .. ..$ log.posterior     : num -6.09
##   .. .. .. ..$ log.posterior.orig: num -2.83
##   .. .. .. ..$ mean              : num [1:55730] -3.24 -1.46 32.09 27.96 -11.68 ...
##   .. .. .. ..$ improved.mean     : num [1:55730] -3.24 -1.46 32.09 27.96 -11.68 ...
##   .. .. .. ..$ skewness          : logi [1:55730] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:153769] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:153769] 0.04161 0.02142 0.01201 0.00856 0.03638 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:153769] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:153769] 130.9 133.3 100.4 246.3 29.7 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:116274] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:116274] 0.04161 0.02142 0.00964 0.00856 0.01057 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:25842, 1:3] 0.06236 -0.0104 0.05293 -0.00111 -0.02273 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:25842, 1:2] 92.5 92.9 93.6 14.6 18.7 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:55730, 1:2] 29.46 6.99 -3.24 -1.46 32.09 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:5] -4.7565 2.8814 -1.2755 0.0726 0.1723
##   .. .. .. .. ..- attr(*, "names")= chr [1:5] "Log precision for the Gaussian observations" "Theta1 for field" "Theta2 for field" "Theta3 for field" ...
##   .. .. .. ..$ log.posterior     : num -6.77
##   .. .. .. ..$ log.posterior.orig: num -3.5
##   .. .. .. ..$ mean              : num [1:55730] -4.43 -2.24 32.09 29.99 -11.56 ...
##   .. .. .. ..$ improved.mean     : num [1:55730] -4.43 -2.24 32.09 29.99 -11.56 ...
##   .. .. .. ..$ skewness          : logi [1:55730] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:153769] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:153769] 0.046 0.0233 0.0142 0.0105 0.0388 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:153769] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:153769] 139.1 144.6 87 210.3 27.5 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:116274] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:116274] 0.046 0.0233 0.0119 0.0105 0.013 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:25842, 1:3] 0.06308 -0.01108 0.04552 -0.00306 -0.02237 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:25842, 1:2] 92.4 93 94.5 14.8 18.7 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:55730, 1:2] 29.61 6.65 -4.43 -2.24 32.09 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:5] -4.74505 2.83987 -1.51286 0.00461 0.00536
##   .. .. .. .. ..- attr(*, "names")= chr [1:5] "Log precision for the Gaussian observations" "Theta1 for field" "Theta2 for field" "Theta3 for field" ...
##   .. .. .. ..$ log.posterior     : num -6.27
##   .. .. .. ..$ log.posterior.orig: num -3
##   .. .. .. ..$ mean              : num [1:55730] -3.41 -1.58 30.77 24.87 -11.58 ...
##   .. .. .. ..$ improved.mean     : num [1:55730] -3.41 -1.58 30.77 24.87 -11.58 ...
##   .. .. .. ..$ skewness          : logi [1:55730] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:153769] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:153769] 0.04056 0.02072 0.01223 0.00883 0.03672 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:153769] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:153769] 138.5 142.4 97.7 224.1 29.5 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:116274] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:116274] 0.04056 0.02072 0.00984 0.00883 0.0107 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:25842, 1:3] 0.06588 -0.00858 0.05237 -0.0011 -0.02293 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:25842, 1:2] 92.2 92.7 93.8 14.6 18.7 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:55730, 1:2] 29.46 7.04 -3.41 -1.58 30.77 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:5] -4.748 2.8735 -1.274 0.0976 0.1626
##   .. .. .. .. ..- attr(*, "names")= chr [1:5] "Log precision for the Gaussian observations" "Theta1 for field" "Theta2 for field" "Theta3 for field" ...
##   .. .. .. ..$ log.posterior     : num -6.25
##   .. .. .. ..$ log.posterior.orig: num -2.98
##   .. .. .. ..$ mean              : num [1:55730] -4.28 -2.17 34.65 32.41 -12.05 ...
##   .. .. .. ..$ improved.mean     : num [1:55730] -4.28 -2.17 34.65 32.41 -12.05 ...
##   .. .. .. ..$ skewness          : logi [1:55730] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:153769] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:153769] 0.049 0.02484 0.01272 0.00918 0.03728 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:153769] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:153769] 131.2 136.6 97.2 242 28.7 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:116274] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:116274] 0.049 0.02484 0.01034 0.00918 0.01134 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:25842, 1:3] 0.05824 -0.01366 0.05282 -0.00294 -0.02424 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:25842, 1:2] 93.1 93.3 93.7 14.8 18.9 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:55730, 1:2] 29.64 6.66 -4.28 -2.17 34.65 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:5] -4.73653 2.83198 -1.51139 0.02964 -0.00438
##   .. .. .. .. ..- attr(*, "names")= chr [1:5] "Log precision for the Gaussian observations" "Theta1 for field" "Theta2 for field" "Theta3 for field" ...
##   .. .. .. ..$ log.posterior     : num -6.15
##   .. .. .. ..$ log.posterior.orig: num -2.88
##   .. .. .. ..$ mean              : num [1:55730] -3.29 -1.53 33.11 26.73 -12.02 ...
##   .. .. .. ..$ improved.mean     : num [1:55730] -3.29 -1.53 33.11 26.73 -12.02 ...
##   .. .. .. ..$ skewness          : logi [1:55730] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:153769] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:153769] 0.04318 0.02205 0.01099 0.00771 0.03558 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:153769] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:153769] 130.7 134.6 108.5 256.4 30.7 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:116274] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:116274] 0.04318 0.02205 0.00858 0.00771 0.00933 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:25842, 1:3] 0.06169 -0.01067 0.0597 -0.00102 -0.02473 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:25842, 1:2] 92.7 92.9 93 14.6 18.9 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:55730, 1:2] 29.47 7.06 -3.29 -1.53 33.11 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:5] -4.73984 2.8509 -1.34163 -0.00607 -0.04584
##   .. .. .. .. ..- attr(*, "names")= chr [1:5] "Log precision for the Gaussian observations" "Theta1 for field" "Theta2 for field" "Theta3 for field" ...
##   .. .. .. ..$ log.posterior     : num -6.51
##   .. .. .. ..$ log.posterior.orig: num -3.24
##   .. .. .. ..$ mean              : num [1:55730] -4.4 -2.27 33.07 28.75 -11.9 ...
##   .. .. .. ..$ improved.mean     : num [1:55730] -4.4 -2.27 33.07 28.75 -11.9 ...
##   .. .. .. ..$ skewness          : logi [1:55730] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:153769] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:153769] 0.04783 0.02412 0.01291 0.00943 0.0376 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:153769] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:153769] 138 145 94.7 220.6 28.5 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:116274] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:116274] 0.04783 0.02412 0.01051 0.00943 0.01144 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:25842, 1:3] 0.06302 -0.01054 0.05383 -0.00299 -0.02443 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:25842, 1:2] 92.6 92.9 93.6 14.8 18.9 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:55730, 1:2] 29.62 6.75 -4.4 -2.27 33.07 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:5] -4.734 2.8437 -1.4414 0.0983 0.2183
##   .. .. .. .. ..- attr(*, "names")= chr [1:5] "Log precision for the Gaussian observations" "Theta1 for field" "Theta2 for field" "Theta3 for field" ...
##   .. .. .. ..$ log.posterior     : num -7.47
##   .. .. .. ..$ log.posterior.orig: num -4.2
##   .. .. .. ..$ mean              : num [1:55730] -3.29 -1.49 30.97 27.02 -11.37 ...
##   .. .. .. ..$ improved.mean     : num [1:55730] -3.29 -1.49 30.97 27.02 -11.37 ...
##   .. .. .. ..$ skewness          : logi [1:55730] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:153769] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:153769] 0.04257 0.02192 0.01313 0.00951 0.03806 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:153769] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:153769] 128.2 130.5 92.2 222.2 28.2 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:116274] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:116274] 0.04257 0.02192 0.01071 0.00951 0.01175 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:25842, 1:3] 0.06626 -0.00904 0.05182 -0.00155 -0.02258 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:25842, 1:2] 92.2 92.8 93.9 14.7 18.7 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:55730, 1:2] 29.43 7.01 -3.29 -1.49 30.97 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. ..$ max.log.posterior: num -104426
##   ..$ nfunc                             : num 271
##   ..$ warnings                          : chr(0) 
##   ..$ opt.trace                         :List of 3
##   .. ..$ f    : Named num [1:45] 28293107 28291283 28291152 28286767 10626410 ...
##   .. .. ..- attr(*, "names")= chr [1:45] "iter1" "iter2" "iter3" "iter4" ...
##   .. ..$ nfunc: Named int [1:45] 1 2 3 5 7 12 13 14 15 21 ...
##   .. .. ..- attr(*, "names")= chr [1:45] "iter1" "iter2" "iter3" "iter4" ...
##   .. ..$ theta: num [1:45, 1:5] 4 4 4 4 3 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : chr [1:45] "iter1" "iter2" "iter3" "iter4" ...
##   .. .. .. ..$ : chr [1:5] "theta1" "theta2" "theta3" "theta4" ...
##   ..$ theta.mode                        : num [1:5] -4.7352 2.865 -1.406 0.0401 0.0567
##   ..$ linkfunctions                     :List of 2
##   .. ..$ names: chr "identity"
##   .. ..$ link : int [1:25842] 1 1 1 1 1 1 1 1 1 1 ...
##   ..$ family                            : int [1:25842] 1 1 1 1 1 1 1 1 1 1 ...
##  $ dic                        :List of 14
##   ..$ dic              : num 202522
##   ..$ p.eff            : num 6806
##   ..$ mean.deviance    : num 195716
##   ..$ deviance.mean    : num 188909
##   ..$ dic.sat          : num 32624
##   ..$ mean.deviance.sat: num 25817
##   ..$ deviance.mean.sat: num 19019
##   ..$ family.dic       : num 202522
##   ..$ family.dic.sat   : num 32615
##   ..$ family.p.eff     : num 6806
##   ..$ family           : num [1:25842] 1 1 1 1 1 1 1 1 1 1 ...
##   ..$ local.dic        : num [1:25842] 7.6 7.15 7.66 7.01 7.27 ...
##   ..$ local.dic.sat    : num [1:25842] 1.012 0.567 1.072 0.438 0.696 ...
##   ..$ local.p.eff      : num [1:25842] 0.295 0.28 0.384 0.219 0.316 ...
##  $ mode                       :List of 5
##   ..$ theta             : Named num [1:5] -4.7352 2.865 -1.406 0.0401 0.0567
##   .. ..- attr(*, "names")= chr [1:5] "Log precision for the Gaussian observations" "Theta1 for field" "Theta2 for field" "Theta3 for field" ...
##   ..$ x                 : num [1:137302] 92.8 93.2 93.8 14.6 18.8 ...
##   ..$ theta.tags        : chr [1:5] "Log precision for the Gaussian observations" "Theta1 for field" "Theta2 for field" "Theta3 for field" ...
##   ..$ mode.status       : num 0
##   ..$ log.posterior.mode: num -104426
##  $ joint.hyper                :'data.frame': 27 obs. of  7 variables:
##   ..$ Log precision for the Gaussian observations : num [1:27] -4.74 -4.76 -4.71 -4.72 -4.75 ...
##   ..$ Theta1 for field                            : num [1:27] 2.87 2.84 2.89 2.85 2.88 ...
##   ..$ Theta2 for field                            : num [1:27] -1.41 -1.4 -1.41 -1.4 -1.41 ...
##   ..$ Theta3 for field                            : num [1:27] 0.0401 0.0407 0.0394 0.0484 0.0316 ...
##   ..$ Theta4 for field                            : num [1:27] 0.0567 0.0573 0.0561 0.0538 0.0596 ...
##   ..$ Log posterior density                       : num [1:27] -104445 -104448 -104448 -104448 -104448 ...
##   ..$ Total integration weight (log.dens included): num [1:27] 0.1606 0.0303 0.0287 0.0294 0.0296 ...
##  $ nhyper                     : int 5
##  $ version                    :List of 2
##   ..$ inla.call: chr "GITCOMMIT [b51fb385728e90bce98ca92b1d8762a2d13f655c - Sat May 18 13:21:08 2024 +0300]"
##   ..$ R.INLA   : Named chr "24.05.18-2"
##   .. ..- attr(*, "names")= chr "version"
##  $ Q                          : NULL
##  $ graph                      : NULL
##  $ ok                         : logi TRUE
##  $ cpu.intern                 : chr [1:16] "Wall-clock time used on [/tmp/RtmpDF9k7K/file31f20b2ae2529c/Model.ini]" "Preparations             :   0.198 seconds" "Approx inference (stage1):  46.676 seconds" "Approx inference (stage2):   0.001 seconds" ...
##  $ cpu.used                   : Named num [1:4] 0.738 63.61 3.233 67.581
##   ..- attr(*, "names")= chr [1:4] "Pre" "Running" "Post" "Total"
##  $ all.hyper                  :List of 4
##   ..$ predictor:List of 1
##   .. ..$ hyper:List of 1
##   .. .. ..$ theta:List of 9
##   .. .. .. ..$ hyperid   : num 53001
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name      : chr "log precision"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name: chr "prec"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial   : num 13.8
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed     : logi TRUE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior     : chr "loggamma"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param     : num [1:2] 1e+00 1e-05
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta  :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta:function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   ..$ family   :List of 1
##   .. ..$ :List of 4
##   .. .. ..$ hyperid: chr "INLA.Data1"
##   .. .. ..$ label  : chr "gaussian"
##   .. .. ..$ hyper  :List of 2
##   .. .. .. ..$ theta1:List of 11
##   .. .. .. .. ..$ hyperid           : num 65001
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ name              : chr "log precision"
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ short.name        : chr "prec"
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ output.name       : chr "Precision for the Gaussian observations"
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ output.name.intern: chr "Log precision for the Gaussian observations"
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ initial           : num 4
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ prior             : chr "loggamma"
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ param             : num [1:2] 1e+00 5e-05
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ theta2:List of 11
##   .. .. .. .. ..$ hyperid           : num 65002
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ name              : chr "log precision offset"
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ short.name        : chr "precoffset"
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ output.name       : chr "NOT IN USE"
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ output.name.intern: chr "NOT IN USE"
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ initial           : num 72.1
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ fixed             : logi TRUE
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ prior             : chr "none"
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. .. ..$ param             : num(0) 
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ link   :List of 1
##   .. .. .. ..$ hyper: list()
##   ..$ linear   :List of 2
##   .. ..$ :List of 3
##   .. .. ..$ label     : chr "Intercept"
##   .. .. ..$ prior.mean: num 0
##   .. .. ..$ prior.prec: num 0.001
##   .. ..$ :List of 3
##   .. .. ..$ label     : chr "SpeedLimit"
##   .. .. ..$ prior.mean: num 0
##   .. .. ..$ prior.prec: num 0.001
##   ..$ random   :List of 3
##   .. ..$ : NULL
##   .. ..$ : NULL
##   .. ..$ :List of 3
##   .. .. ..$ hyperid    : chr "field"
##   .. .. ..$ hyper      : NULL
##   .. .. ..$ group.hyper:List of 1
##   .. .. .. ..$ theta:List of 9
##   .. .. .. .. ..$ hyperid   : num 40001
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ name      : chr "logit correlation"
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ short.name: chr "rho"
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ initial   : num 1
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ fixed     : logi FALSE
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ prior     : chr "normal"
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ param     : num [1:2] 0 0.2
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ to.theta  :function (x, REPLACE.ME.ngroup)  
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. .. ..$ from.theta:function (x, REPLACE.ME.ngroup)  
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##  $ .args                      :List of 30
##   ..$ formula          :Class 'formula'  language BRU.response ~ f(Intercept, model = BRU_Intercept_main_model, ngroup = 1,      nrep = 1, values = BRU_Intercept_v| __truncated__ ...
##   ..$ family           : chr "gaussian"
##   ..$ data             :List of 21
##   .. ..$ BRU.response             : num [1:25842] 99.8 91.7 99.8 14.5 16.1 ...
##   .. ..$ BRU.E                    : num [1:25842] 1 1 1 1 1 1 1 1 1 1 ...
##   .. ..$ BRU.Ntrials              : num [1:25842] 1 1 1 1 1 1 1 1 1 1 ...
##   .. ..$ BRU.weights              : num [1:25842] 1 1 1 1 1 1 1 1 1 1 ...
##   .. ..$ BRU.scale                : num [1:25842] 1 1 1 1 1 1 1 1 1 1 ...
##   .. ..$ BRU.offset               : num [1:25842] 0 0 0 0 0 0 0 0 0 0 ...
##   .. ..$ Intercept                : num [1:55730] 1 NA NA NA NA NA NA NA NA NA ...
##   .. ..$ Intercept.group          : int [1:55730] 1 NA NA NA NA NA NA NA NA NA ...
##   .. ..$ Intercept.repl           : int [1:55730] 1 NA NA NA NA NA NA NA NA NA ...
##   .. ..$ SpeedLimit               : num [1:55730] NA 1 NA NA NA NA NA NA NA NA ...
##   .. ..$ SpeedLimit.group         : int [1:55730] NA 1 NA NA NA NA NA NA NA NA ...
##   .. ..$ SpeedLimit.repl          : int [1:55730] NA 1 NA NA NA NA NA NA NA NA ...
##   .. ..$ field                    : int [1:55730] NA NA 1 2 3 4 5 6 7 8 ...
##   .. ..$ field.group              : int [1:55730] NA NA 1 1 1 1 1 1 1 1 ...
##   .. ..$ field.repl               : int [1:55730] NA NA 1 1 1 1 1 1 1 1 ...
##   .. ..$ BRU_Intercept_main_model : chr "linear"
##   .. ..$ BRU_Intercept_values     : num 1
##   .. ..$ BRU_SpeedLimit_main_model: chr "linear"
##   .. ..$ BRU_SpeedLimit_values    : num 1
##   .. ..$ BRU_field_main_model     :List of 21
##   .. .. ..$ f                   :List of 3
##   .. .. .. ..$ model   : chr "cgeneric"
##   .. .. .. ..$ n       : int 13932
##   .. .. .. ..$ cgeneric:List of 5
##   .. .. .. .. ..$ model: chr "inla_cgeneric_rspde_nonstat_int_model"
##   .. .. .. .. ..$ shlib: chr "/home/rierasl/R/x86_64-pc-linux-gnu-library/4.4/INLA/bin/linux/64bit/external/rSPDE/librSPDE.so"
##   .. .. .. .. ..$ n    : int 13932
##   .. .. .. .. ..$ debug: logi FALSE
##   .. .. .. .. ..$ data :List of 5
##   .. .. .. .. .. ..$ ints      :List of 5
##   .. .. .. .. .. .. ..$ n          : int 13932
##   .. .. .. .. .. .. ..$ debug      : int 0
##   .. .. .. .. .. .. ..$ graph_opt_i: int [1:29068] 0 0 0 0 1 1 1 1 1 2 ...
##   .. .. .. .. .. .. ..$ graph_opt_j: int [1:29068] 0 5681 8781 11463 1 8781 11429 11463 13882 2 ...
##   .. .. .. .. .. .. ..$ alpha      : int 1
##   .. .. .. .. .. ..$ doubles   :List of 2
##   .. .. .. .. .. .. ..$ start.theta     : num [1:4] 2.86 -1.4 0 0
##   .. .. .. .. .. .. ..$ theta.prior.mean: num [1:4] 2.86 -1.4 0 0
##   .. .. .. .. .. ..$ characters:List of 3
##   .. .. .. .. .. .. ..$ model            : chr "inla_cgeneric_rspde_nonstat_int_model"
##   .. .. .. .. .. .. ..$ shlib            : chr "/home/rierasl/R/x86_64-pc-linux-gnu-library/4.4/INLA/bin/linux/64bit/external/rSPDE/librSPDE.so"
##   .. .. .. .. .. .. ..$ prior.theta.param: chr "theta"
##   .. .. .. .. .. ..$ matrices  :List of 3
##   .. .. .. .. .. .. ..$ B_tau           : num [1:69662] 13932 5 -0.693 -1 0.5 ...
##   .. .. .. .. .. .. ..$ B_kappa         : num [1:69662] 13932 5 0.693 0 -1 ...
##   .. .. .. .. .. .. ..$ theta.prior.prec: num [1:18] 4 4 0.1 0 0 0 0 0.1 0 0 ...
##   .. .. .. .. .. ..$ smatrices :List of 2
##   .. .. .. .. .. .. ..$ C: num [1:41799] 13932 13932 13932 0 1 ...
##   .. .. .. .. .. .. ..$ G: num [1:132615] 13932 13932 44204 0 5681 ...
##   .. .. .. .. ..- attr(*, "class")= chr "inla.cgeneric"
##   .. .. ..$ cgeneric_type       : chr "int_alpha"
##   .. .. ..$ nu                  : num 0.5
##   .. .. ..$ theta.prior.mean    : num [1:4] 2.86 -1.4 0 0
##   .. .. ..$ prior.nu            :List of 4
##   .. .. .. ..$ loglocation: num -5e-06
##   .. .. .. ..$ mean       : num 1
##   .. .. .. ..$ prec       : num 3
##   .. .. .. ..$ logscale   : num 1
##   .. .. ..$ theta.prior.prec    : num [1:4, 1:4] 0.1 0 0 0 0 0.1 0 0 0 0 ...
##   .. .. ..$ start.nu            : num 0.5
##   .. .. ..$ integer.nu          : logi TRUE
##   .. .. ..$ start.theta         : num [1:4] 2.86 -1.4 0 0
##   .. .. ..$ stationary          : logi FALSE
##   .. .. ..$ rspde.order         : num 2
##   .. .. ..$ dim                 : num 1
##   .. .. ..$ est_nu              : logi FALSE
##   .. .. ..$ nu.upper.bound      : num 2
##   .. .. ..$ prior.nu.dist       : chr "lognormal"
##   .. .. ..$ debug               : logi FALSE
##   .. .. ..$ type.rational.approx: chr "chebfun"
##   .. .. ..$ mesh                :Classes 'metric_graph', 'R6' <metric_graph>
##   Public:
##     add_mesh_observations: function (data = NULL, group = NULL) 
##     add_observations: function (data = NULL, edge_number = "edge_number", distance_on_edge = "distance_on_edge", 
##     build_mesh: function (h = NULL, n = NULL, continuous = TRUE, continuous.outs = FALSE, 
##     buildC: function (alpha = 2, edge_constraint = FALSE) 
##     buildDirectionalConstraints: function (alpha = 1) 
##     C: NULL
##     characteristics: list
##     check_distance_consistency: function () 
##     check_euclidean: function () 
##     clear_observations: function () 
##     clone: function (deep = FALSE) 
##     CoB: NULL
##     compute_characteristics: function (check_euclidean = FALSE) 
##     compute_fem: function (petrov = FALSE) 
##     compute_geodist: function (full = FALSE, obs = TRUE, group = NULL, verbose = 0) 
##     compute_geodist_mesh: function () 
##     compute_geodist_PtE: function (PtE, normalized = TRUE, include_vertices = TRUE, verbose = 0) 
##     compute_laplacian: function (full = FALSE, obs = TRUE, group = NULL, verbose = 0) 
##     compute_PtE_edges: function () 
##     compute_resdist: function (full = FALSE, obs = TRUE, group = NULL, check_euclidean = FALSE, 
##     compute_resdist_mesh: function () 
##     compute_resdist_PtE: function (PtE, normalized = TRUE, include_vertices = FALSE, check_euclidean = FALSE, 
##     coordinates: function (PtE = NULL, XY = NULL, normalized = TRUE) 
##     drop_na: function (...) 
##     E: 1 3 5 7 9 9 10 12 13 14 15 12 18 19 21 20 22 24 26 28 30 ...
##     edge_lengths: 0.0820202978316493 0.13610246403764 0.07378151878521 0.0 ...
##     edges: metric_graph_edges
##     edgeweight_to_data: function (loc = NULL, mesh = FALSE, data_loc = FALSE, weight_col = NULL, 
##     fem_basis: function (PtE) 
##     filter: function (..., .drop_na = FALSE, .drop_all_na = TRUE) 
##     geo_dist: list
##     get_data: function (group = NULL, tibble = TRUE, drop_na = FALSE, drop_all_na = TRUE) 
##     get_degrees: function (which = "degree") 
##     get_edge_lengths: function (unit = NULL) 
##     get_edge_weights: function (data.frame = FALSE, tibble = TRUE) 
##     get_groups: function (get_cols = FALSE) 
##     get_initial_graph: function () 
##     get_locations: function () 
##     get_mesh_locations: function (bru = FALSE, loc = NULL, normalized = TRUE) 
##     get_PtE: function () 
##     get_vertices_incomp_dir: function () 
##     initialize: function (edges = NULL, V = NULL, E = NULL, vertex_unit = NULL, 
##     is_tree: function () 
##     Laplacian: NULL
##     mesh: list
##     mesh_A: function (PtE) 
##     mutate: function (..., .drop_na = FALSE, .drop_all_na = TRUE) 
##     nE: 11104
##     nV: 8781
##     observation_to_vertex: function (tolerance = 1e-15, mesh_warning = TRUE) 
##     plot: function (data = NULL, newdata = NULL, group = 1, plotly = FALSE, 
##     plot_connections: function () 
##     plot_function: function (data = NULL, newdata = NULL, group = 1, X = NULL, plotly = FALSE, 
##     plot_movie: function (X, plotly = TRUE, vertex_size = 5, vertex_color = "black", 
##     print: function () 
##     process_data: function (data = NULL, edge_number = "edge_number", distance_on_edge = "distance_on_edge", 
##     prune_vertices: function (check_weights = TRUE, verbose = FALSE) 
##     PtV: NULL
##     res_dist: NULL
##     select: function (..., .drop_na = FALSE, .drop_all_na = TRUE) 
##     set_edge_weights: function (weights = rep(1, self$nE), kirchhoff_weights = NULL) 
##     summarise: function (..., .include_graph_groups = FALSE, .groups = NULL, 
##     summary: function (messages = FALSE, compute_characteristics = TRUE, check_euclidean = TRUE, 
##     V: -122.40171 -122.40078 -122.44449 -122.44331 -122.41216 - ...
##     vertices: metric_graph_vertices
##     VtEfirst: function () 
##   Private:
##     A: function (group = NULL, obs_to_vert = FALSE, drop_na = FALSE, 
##     add_vertices: function (PtE, tolerance = 1e-10, verbose) 
##     addinfo: FALSE
##     clear_initial_info: function () 
##     compute_degrees: function () 
##     compute_laplacian_PtE: function (PtE, normalized = TRUE, verbose = verbose) 
##     compute_lengths: function (longlat, unit, crs, proj4string, which_longlat, vertex_unit, 
##     connected: TRUE
##     coordinates_multiple_snaps: function (XY, tolerance, verbose = verbose, crs, proj4string, 
##     create_update_vertices: function () 
##     crs: crs
##     data: metric_graph_data, list
##     edge_weights: tbl_df, tbl, data.frame
##     find_edge_edge_points: function (tol, verbose, crs, proj4string, longlat, fact, which_longlat) 
##     find_mesh_bc: function () 
##     get_edge_weights_internal: function (data.frame = FALSE) 
##     group_col: .group
##     initial_edges_added: NULL
##     initial_graph: metric_graph, R6
##     kirchhoff_weights: NULL
##     length_unit: km
##     line_to_vertex: function (tolerance = 0, longlat = FALSE, fact, verbose, crs, 
##     longlat: TRUE
##     merge_close_vertices: function (tolerance, fact) 
##     merge.all.deg2: function () 
##     mesh_merge_deg2: function () 
##     mesh_merge_outs: function () 
##     move_V_first: function () 
##     plot_2d: function (line_width = 0.1, marker_size = 1, vertex_color = "black", 
##     plot_3d: function (line_width = 1, marker_size = 1, vertex_color = "rgb(0,0,0)", 
##     proj4string: NULL
##     prune_warning: FALSE
##     pruned: FALSE
##     PtE_to_mesh: function (PtE) 
##     ref_edges: 1 5502 2 359 3 4077 4 5117 5 7 5419 8 9 10 11 4817 4613  ...
##     remove_circles: function (threshold, verbose, longlat, unit, crs, proj4string, 
##     remove.first.deg2: function (res) 
##     set_first_weights: function (weights = rep(1, self$nE)) 
##     set_petrov_matrices: function () 
##     split_edge: function (Ei, t, tolerance = 0) 
##     temp_PtE: NULL
##     tolerance: list
##     transform: FALSE
##     vertex_unit: degrees
##     which_longlat: sf 
##   .. .. ..$ fem_mesh            :List of 4
##   .. .. .. ..$ c0:Formal class 'dgTMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:13932] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ j       : int [1:13932] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 13932 13932
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:13932] 0.0534 0.0776 0.0408 0.0457 0.0367 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ g1:Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:44204] 0 5681 8781 11463 1 8781 11429 11463 13882 2 ...
##   .. .. .. .. .. ..@ p       : int [1:13933] 0 4 9 12 15 18 23 26 29 34 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 13932 13932
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:44204] 210.6 -161.9 -24.4 -24.4 103.4 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ g2:Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:81554] 0 1 5399 5681 8781 11463 0 1 4450 8781 ...
##   .. .. .. .. .. ..@ p       : int [1:13933] 0 6 13 18 23 28 37 42 47 56 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 13932 13932
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:81554] 1731368 28997 607384 -2117274 -125237 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ g3:Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:124984] 0 1 805 5399 5681 8781 11429 11463 13882 0 ...
##   .. .. .. .. .. ..@ p       : int [1:13933] 0 9 18 25 32 43 56 65 72 85 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 13932 13932
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:124984] 1.84e+10 1.88e+08 -4.79e+08 9.57e+09 -2.57e+10 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. ..$ parameterization    : chr "matern"
##   .. .. ..$ n.spde              : int 13932
##   .. .. ..- attr(*, "class")= chr [1:3] "rspde_metric_graph" "inla_rspde" "inla.cgeneric"
##   .. ..$ BRU_field_values         : int [1:13932] 1 2 3 4 5 6 7 8 9 10 ...
##   ..$ quantiles        : num [1:3] 0.025 0.5 0.975
##   ..$ E                : num [1:25842] 1 1 1 1 1 1 1 1 1 1 ...
##   ..$ offset           : num [1:25842] 0 0 0 0 0 0 0 0 0 0 ...
##   ..$ scale            : num [1:25842] 1 1 1 1 1 1 1 1 1 1 ...
##   ..$ weights          : num [1:25842] 1 1 1 1 1 1 1 1 1 1 ...
##   ..$ Ntrials          : num [1:25842] 1 1 1 1 1 1 1 1 1 1 ...
##   ..$ verbose          : logi FALSE
##   ..$ control.compute  :List of 18
##   .. ..$ openmp.strategy           : chr "default"
##   .. ..$ hyperpar                  : logi TRUE
##   .. ..$ return.marginals          : logi TRUE
##   .. ..$ return.marginals.predictor: logi FALSE
##   .. ..$ dic                       : logi TRUE
##   .. ..$ mlik                      : logi TRUE
##   .. ..$ cpo                       : logi FALSE
##   .. ..$ po                        : logi FALSE
##   .. ..$ waic                      : logi TRUE
##   .. ..$ residuals                 : logi FALSE
##   .. ..$ q                         : logi FALSE
##   .. ..$ config                    : logi TRUE
##   .. ..$ likelihood.info           : logi FALSE
##   .. ..$ smtp                      : NULL
##   .. ..$ graph                     : logi FALSE
##   .. ..$ internal.opt              : NULL
##   .. ..$ save.memory               : NULL
##   .. ..$ control.gcpo              :List of 16
##   .. .. ..$ enable          : logi FALSE
##   .. .. ..$ num.level.sets  : num -1
##   .. .. ..$ size.max        : num 32
##   .. .. ..$ strategy        : chr [1:2] "posterior" "prior"
##   .. .. ..$ groups          : NULL
##   .. .. ..$ selection       : NULL
##   .. .. ..$ group.selection : NULL
##   .. .. ..$ friends         : NULL
##   .. .. ..$ weights         : NULL
##   .. .. ..$ verbose         : logi FALSE
##   .. .. ..$ epsilon         : num 0.005
##   .. .. ..$ prior.diagonal  : num 1e-04
##   .. .. ..$ correct.hyperpar: logi TRUE
##   .. .. ..$ keep            : NULL
##   .. .. ..$ remove          : NULL
##   .. .. ..$ remove.fixed    : logi TRUE
##   .. .. ..- attr(*, "class")= chr [1:2] "ctrl_gcpo" "inla_ctrl_object"
##   .. ..- attr(*, "class")= chr [1:2] "ctrl_compute" "inla_ctrl_object"
##   ..$ control.predictor:List of 12
##   .. ..$ hyper    :List of 1
##   .. .. ..$ theta:List of 9
##   .. .. .. ..$ hyperid   : num 53001
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name      : chr "log precision"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name: chr "prec"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial   : num 13.8
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed     : logi TRUE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior     : chr "loggamma"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param     : num [1:2] 1e+00 1e-05
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta  :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta:function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. ..$ fixed    : NULL
##   .. ..$ prior    : NULL
##   .. ..$ param    : NULL
##   .. ..$ initial  : NULL
##   .. ..$ compute  : logi TRUE
##   .. ..$ cdf      : NULL
##   .. ..$ quantiles: NULL
##   .. ..$ cross    : NULL
##   .. ..$ A        :Formal class 'dgTMatrix' [package "Matrix"] with 6 slots
##   .. .. .. ..@ i       : int [1:103342] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. ..@ j       : int [1:103342] 0 0 0 0 0 0 0 0 0 0 ...
##   .. .. .. ..@ Dim     : int [1:2] 25842 55730
##   .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. ..$ : NULL
##   .. .. .. .. ..$ : NULL
##   .. .. .. ..@ x       : num [1:103342] 1 1 1 1 1 1 1 1 1 1 ...
##   .. .. .. ..@ factors : list()
##   .. ..$ precision: num 3269017
##   .. ..$ link     : NULL
##   .. ..- attr(*, "class")= chr [1:2] "ctrl_predictor" "inla_ctrl_object"
##   ..$ control.family   :List of 1
##   .. ..$ :List of 17
##   .. .. ..$ dummy            : num 0
##   .. .. ..$ hyper            :List of 2
##   .. .. .. ..$ theta1:List of 11
##   .. .. .. .. ..$ hyperid           : num 65001
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ name              : chr "log precision"
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ short.name        : chr "prec"
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ output.name       : chr "Precision for the Gaussian observations"
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ output.name.intern: chr "Log precision for the Gaussian observations"
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ initial           : num 4
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ prior             : chr "loggamma"
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ param             : num [1:2] 1e+00 5e-05
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ theta2:List of 11
##   .. .. .. .. ..$ hyperid           : num 65002
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ name              : chr "log precision offset"
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ short.name        : chr "precoffset"
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ output.name       : chr "NOT IN USE"
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ output.name.intern: chr "NOT IN USE"
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ initial           : num 72.1
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ fixed             : logi TRUE
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ prior             : chr "none"
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. .. ..$ param             : num(0) 
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ initial          : NULL
##   .. .. ..$ prior            : NULL
##   .. .. ..$ param            : NULL
##   .. .. ..$ fixed            : NULL
##   .. .. ..$ link             : chr "default"
##   .. .. ..$ sn.shape.max     : num 5
##   .. .. ..$ gev.scale.xi     : num 0.1
##   .. .. ..$ control.bgev     : NULL
##   .. .. ..$ cenpoisson.I     : int [1:2] -1 -1
##   .. .. ..$ beta.censor.value: num 0
##   .. .. ..$ variant          : int 0
##   .. .. ..$ control.mix      : NULL
##   .. .. ..$ control.pom      : NULL
##   .. .. ..$ control.link     :List of 10
##   .. .. .. ..$ model   : chr "default"
##   .. .. .. ..$ order   : NULL
##   .. .. .. ..$ variant : NULL
##   .. .. .. ..$ hyper   : list()
##   .. .. .. ..$ quantile: NULL
##   .. .. .. ..$ a       : num 1
##   .. .. .. ..$ initial : NULL
##   .. .. .. ..$ fixed   : NULL
##   .. .. .. ..$ prior   : NULL
##   .. .. .. ..$ param   : NULL
##   .. .. .. ..- attr(*, "class")= chr [1:2] "ctrl_link" "inla_ctrl_object"
##   .. .. ..$ link.simple      : chr "default"
##   .. .. ..- attr(*, "class")= chr [1:2] "ctrl_family" "inla_ctrl_object"
##   ..$ control.inla     :List of 56
##   .. ..$ strategy                          : chr "auto"
##   .. ..$ int.strategy                      : chr "auto"
##   .. ..$ int.design                        : NULL
##   .. ..$ interpolator                      : chr "auto"
##   .. ..$ fast                              : logi TRUE
##   .. ..$ linear.correction                 : NULL
##   .. ..$ h                                 : num 0.005
##   .. ..$ dz                                : num 0.75
##   .. ..$ diff.logdens                      : num 6
##   .. ..$ print.joint.hyper                 : logi TRUE
##   .. ..$ force.diagonal                    : logi FALSE
##   .. ..$ skip.configurations               : logi TRUE
##   .. ..$ mode.known                        : logi FALSE
##   .. ..$ adjust.weights                    : logi TRUE
##   .. ..$ tolerance                         : num 0.005
##   .. ..$ tolerance.f                       : NULL
##   .. ..$ tolerance.g                       : NULL
##   .. ..$ tolerance.x                       : NULL
##   .. ..$ tolerance.step                    : NULL
##   .. ..$ restart                           : int 0
##   .. ..$ optimiser                         : chr "default"
##   .. ..$ verbose                           : NULL
##   .. ..$ reordering                        : chr "auto"
##   .. ..$ cpo.diff                          : NULL
##   .. ..$ npoints                           : num 9
##   .. ..$ cutoff                            : num 1e-04
##   .. ..$ adapt.hessian.mode                : NULL
##   .. ..$ adapt.hessian.max.trials          : NULL
##   .. ..$ adapt.hessian.scale               : NULL
##   .. ..$ adaptive.max                      : int 25
##   .. ..$ huge                              : logi FALSE
##   .. ..$ step.len                          : num 0
##   .. ..$ stencil                           : int 5
##   .. ..$ lincomb.derived.correlation.matrix: logi FALSE
##   .. ..$ diagonal                          : num 0
##   .. ..$ numint.maxfeval                   : num 1e+05
##   .. ..$ numint.relerr                     : num 1e-05
##   .. ..$ numint.abserr                     : num 1e-06
##   .. ..$ cmin                              : num -Inf
##   .. ..$ b.strategy                        : chr "keep"
##   .. ..$ step.factor                       : num -0.1
##   .. ..$ global.node.factor                : num 2
##   .. ..$ global.node.degree                : int 2147483647
##   .. ..$ stupid.search                     : logi TRUE
##   .. ..$ stupid.search.max.iter            : int 1000
##   .. ..$ stupid.search.factor              : num 1.05
##   .. ..$ control.vb                        :List of 8
##   .. .. ..$ enable          : chr "auto"
##   .. .. ..$ strategy        : chr [1:2] "mean" "variance"
##   .. .. ..$ verbose         : logi TRUE
##   .. .. ..$ iter.max        : num 25
##   .. .. ..$ emergency       : num 25
##   .. .. ..$ f.enable.limit  : num [1:4] 30 25 1024 768
##   .. .. ..$ hessian.update  : num 2
##   .. .. ..$ hessian.strategy: chr [1:4] "default" "full" "partial" "diagonal"
##   .. .. ..- attr(*, "class")= chr [1:2] "ctrl_vb" "inla_ctrl_object"
##   .. ..$ num.gradient                      : chr "central"
##   .. ..$ num.hessian                       : chr "central"
##   .. ..$ optimise.strategy                 : chr "smart"
##   .. ..$ use.directions                    : logi TRUE
##   .. ..$ constr.marginal.diagonal          : num 1.49e-08
##   .. ..$ improved.simplified.laplace       : logi FALSE
##   .. ..$ parallel.linesearch               : logi FALSE
##   .. ..$ compute.initial.values            : logi TRUE
##   .. ..$ hessian.correct.skewness.only     : logi TRUE
##   .. ..- attr(*, "class")= chr [1:2] "ctrl_inla" "inla_ctrl_object"
##   ..$ control.fixed    :List of 10
##   .. ..$ cdf                   : NULL
##   .. ..$ quantiles             : NULL
##   .. ..$ expand.factor.strategy: chr "inla"
##   .. ..$ mean                  : num 0
##   .. ..$ mean.intercept        : num 0
##   .. ..$ prec                  : num 0.001
##   .. ..$ prec.intercept        : num 0
##   .. ..$ compute               : logi TRUE
##   .. ..$ correlation.matrix    : logi FALSE
##   .. ..$ remove.names          : NULL
##   .. ..- attr(*, "class")= chr [1:2] "ctrl_fixed" "inla_ctrl_object"
##   ..$ control.mode     :List of 5
##   .. ..$ result : NULL
##   .. ..$ theta  : NULL
##   .. ..$ x      : NULL
##   .. ..$ restart: logi FALSE
##   .. ..$ fixed  : logi FALSE
##   .. ..- attr(*, "class")= chr [1:2] "ctrl_mode" "inla_ctrl_object"
##   ..$ control.expert   :List of 6
##   .. ..$ cpo.manual            : logi FALSE
##   .. ..$ cpo.idx               : num -1
##   .. ..$ disable.gaussian.check: logi FALSE
##   .. ..$ jp                    : NULL
##   .. ..$ dot.product.gain      : logi FALSE
##   .. ..$ globalconstr          :List of 2
##   .. .. ..$ A: NULL
##   .. .. ..$ e: NULL
##   .. ..- attr(*, "class")= chr [1:2] "ctrl_expert" "inla_ctrl_object"
##   ..$ control.lincomb  :List of 1
##   .. ..$ verbose: logi FALSE
##   .. ..- attr(*, "class")= chr [1:2] "ctrl_lincomb" "inla_ctrl_object"
##   ..$ control.update   :List of 1
##   .. ..$ result: NULL
##   .. ..- attr(*, "class")= chr [1:2] "ctrl_update" "inla_ctrl_object"
##   ..$ control.lp.scale :List of 1
##   .. ..$ hyper:List of 100
##   .. .. ..$ theta1  :List of 11
##   .. .. .. ..$ hyperid           : num 103001
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta1"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b1"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[1] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[1] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta2  :List of 11
##   .. .. .. ..$ hyperid           : num 103002
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta2"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b2"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[2] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[2] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta3  :List of 11
##   .. .. .. ..$ hyperid           : num 103003
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta3"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b3"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[3] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[3] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta4  :List of 11
##   .. .. .. ..$ hyperid           : num 103004
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta4"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b4"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[4] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[4] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta5  :List of 11
##   .. .. .. ..$ hyperid           : num 103005
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta5"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b5"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[5] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[5] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta6  :List of 11
##   .. .. .. ..$ hyperid           : num 103006
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta6"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b6"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[6] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[6] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta7  :List of 11
##   .. .. .. ..$ hyperid           : num 103007
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta7"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b7"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[7] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[7] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta8  :List of 11
##   .. .. .. ..$ hyperid           : num 103008
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta8"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b8"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[8] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[8] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta9  :List of 11
##   .. .. .. ..$ hyperid           : num 103009
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta9"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b9"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[9] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[9] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta10 :List of 11
##   .. .. .. ..$ hyperid           : num 103010
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta10"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b10"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[10] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[10] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta11 :List of 11
##   .. .. .. ..$ hyperid           : num 103011
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta11"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b11"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[11] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[11] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta12 :List of 11
##   .. .. .. ..$ hyperid           : num 103012
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta12"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b12"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[12] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[12] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta13 :List of 11
##   .. .. .. ..$ hyperid           : num 103013
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta13"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b13"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[13] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[13] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta14 :List of 11
##   .. .. .. ..$ hyperid           : num 103014
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta14"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b14"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[14] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[14] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta15 :List of 11
##   .. .. .. ..$ hyperid           : num 103015
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta15"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b15"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[15] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[15] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta16 :List of 11
##   .. .. .. ..$ hyperid           : num 103016
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta16"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b16"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[16] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[16] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta17 :List of 11
##   .. .. .. ..$ hyperid           : num 103017
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta17"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b17"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[17] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[17] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta18 :List of 11
##   .. .. .. ..$ hyperid           : num 103018
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta18"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b18"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[18] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[18] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta19 :List of 11
##   .. .. .. ..$ hyperid           : num 103019
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta19"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b19"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[19] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[19] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta20 :List of 11
##   .. .. .. ..$ hyperid           : num 103020
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta20"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b20"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[20] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[20] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta21 :List of 11
##   .. .. .. ..$ hyperid           : num 103021
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta21"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b21"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[21] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[21] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta22 :List of 11
##   .. .. .. ..$ hyperid           : num 103022
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta22"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b22"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[22] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[22] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta23 :List of 11
##   .. .. .. ..$ hyperid           : num 103023
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta23"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b23"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[23] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[23] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta24 :List of 11
##   .. .. .. ..$ hyperid           : num 103024
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta24"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b24"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[24] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[24] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta25 :List of 11
##   .. .. .. ..$ hyperid           : num 103025
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta25"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b25"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[25] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[25] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta26 :List of 11
##   .. .. .. ..$ hyperid           : num 103026
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta26"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b26"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[26] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[26] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta27 :List of 11
##   .. .. .. ..$ hyperid           : num 103027
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta27"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b27"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[27] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[27] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta28 :List of 11
##   .. .. .. ..$ hyperid           : num 103028
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta28"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b28"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[28] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[28] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta29 :List of 11
##   .. .. .. ..$ hyperid           : num 103029
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta29"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b29"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[29] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[29] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta30 :List of 11
##   .. .. .. ..$ hyperid           : num 103030
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta30"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b30"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[30] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[30] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta31 :List of 11
##   .. .. .. ..$ hyperid           : num 103031
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta31"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b31"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[31] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[31] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta32 :List of 11
##   .. .. .. ..$ hyperid           : num 103032
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta32"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b32"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[32] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[32] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta33 :List of 11
##   .. .. .. ..$ hyperid           : num 103033
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta33"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b33"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[33] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[33] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta34 :List of 11
##   .. .. .. ..$ hyperid           : num 103034
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta34"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b34"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[34] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[34] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta35 :List of 11
##   .. .. .. ..$ hyperid           : num 103035
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta35"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b35"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[35] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[35] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta36 :List of 11
##   .. .. .. ..$ hyperid           : num 103036
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta36"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b36"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[36] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[36] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta37 :List of 11
##   .. .. .. ..$ hyperid           : num 103037
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta37"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b37"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[37] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[37] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta38 :List of 11
##   .. .. .. ..$ hyperid           : num 103038
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta38"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b38"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[38] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[38] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta39 :List of 11
##   .. .. .. ..$ hyperid           : num 103039
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta39"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b39"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[39] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[39] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta40 :List of 11
##   .. .. .. ..$ hyperid           : num 103040
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta40"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b40"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[40] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[40] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta41 :List of 11
##   .. .. .. ..$ hyperid           : num 103041
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta41"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b41"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[41] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[41] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta42 :List of 11
##   .. .. .. ..$ hyperid           : num 103042
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta42"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b42"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[42] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[42] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta43 :List of 11
##   .. .. .. ..$ hyperid           : num 103043
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta43"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b43"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[43] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[43] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta44 :List of 11
##   .. .. .. ..$ hyperid           : num 103044
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta44"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b44"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[44] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[44] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta45 :List of 11
##   .. .. .. ..$ hyperid           : num 103045
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta45"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b45"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[45] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[45] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta46 :List of 11
##   .. .. .. ..$ hyperid           : num 103046
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta46"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b46"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[46] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[46] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta47 :List of 11
##   .. .. .. ..$ hyperid           : num 103047
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta47"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b47"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[47] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[47] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta48 :List of 11
##   .. .. .. ..$ hyperid           : num 103048
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta48"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b48"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[48] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[48] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta49 :List of 11
##   .. .. .. ..$ hyperid           : num 103049
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta49"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b49"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[49] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[49] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta50 :List of 11
##   .. .. .. ..$ hyperid           : num 103050
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta50"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b50"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[50] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[50] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta51 :List of 11
##   .. .. .. ..$ hyperid           : num 103051
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta51"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b51"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[51] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[51] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta52 :List of 11
##   .. .. .. ..$ hyperid           : num 103052
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta52"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b52"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[52] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[52] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta53 :List of 11
##   .. .. .. ..$ hyperid           : num 103053
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta53"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b53"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[53] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[53] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta54 :List of 11
##   .. .. .. ..$ hyperid           : num 103054
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta54"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b54"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[54] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[54] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta55 :List of 11
##   .. .. .. ..$ hyperid           : num 103055
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta55"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b55"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[55] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[55] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta56 :List of 11
##   .. .. .. ..$ hyperid           : num 103056
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta56"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b56"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[56] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[56] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta57 :List of 11
##   .. .. .. ..$ hyperid           : num 103057
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta57"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b57"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[57] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[57] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta58 :List of 11
##   .. .. .. ..$ hyperid           : num 103058
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta58"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b58"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[58] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[58] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta59 :List of 11
##   .. .. .. ..$ hyperid           : num 103059
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta59"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b59"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[59] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[59] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta60 :List of 11
##   .. .. .. ..$ hyperid           : num 103060
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta60"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b60"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[60] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[60] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta61 :List of 11
##   .. .. .. ..$ hyperid           : num 103061
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta61"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b61"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[61] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[61] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta62 :List of 11
##   .. .. .. ..$ hyperid           : num 103062
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta62"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b62"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[62] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[62] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta63 :List of 11
##   .. .. .. ..$ hyperid           : num 103063
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta63"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b63"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[63] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[63] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta64 :List of 11
##   .. .. .. ..$ hyperid           : num 103064
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta64"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b64"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[64] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[64] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta65 :List of 11
##   .. .. .. ..$ hyperid           : num 103065
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta65"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b65"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[65] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[65] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta66 :List of 11
##   .. .. .. ..$ hyperid           : num 103066
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta66"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b66"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[66] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[66] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta67 :List of 11
##   .. .. .. ..$ hyperid           : num 103067
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta67"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b67"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[67] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[67] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta68 :List of 11
##   .. .. .. ..$ hyperid           : num 103068
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta68"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b68"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[68] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[68] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta69 :List of 11
##   .. .. .. ..$ hyperid           : num 103069
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta69"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b69"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[69] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[69] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta70 :List of 11
##   .. .. .. ..$ hyperid           : num 103070
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta70"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b70"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[70] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[70] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta71 :List of 11
##   .. .. .. ..$ hyperid           : num 103071
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta71"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b71"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[71] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[71] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta72 :List of 11
##   .. .. .. ..$ hyperid           : num 103072
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta72"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b72"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[72] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[72] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta73 :List of 11
##   .. .. .. ..$ hyperid           : num 103073
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta73"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b73"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[73] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[73] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta74 :List of 11
##   .. .. .. ..$ hyperid           : num 103074
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta74"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b74"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[74] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[74] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta75 :List of 11
##   .. .. .. ..$ hyperid           : num 103075
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta75"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b75"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[75] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[75] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta76 :List of 11
##   .. .. .. ..$ hyperid           : num 103076
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta76"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b76"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[76] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[76] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta77 :List of 11
##   .. .. .. ..$ hyperid           : num 103077
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta77"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b77"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[77] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[77] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta78 :List of 11
##   .. .. .. ..$ hyperid           : num 103078
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta78"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b78"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[78] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[78] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta79 :List of 11
##   .. .. .. ..$ hyperid           : num 103079
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta79"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b79"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[79] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[79] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta80 :List of 11
##   .. .. .. ..$ hyperid           : num 103080
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta80"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b80"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[80] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[80] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta81 :List of 11
##   .. .. .. ..$ hyperid           : num 103081
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta81"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b81"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[81] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[81] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta82 :List of 11
##   .. .. .. ..$ hyperid           : num 103082
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta82"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b82"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[82] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[82] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta83 :List of 11
##   .. .. .. ..$ hyperid           : num 103083
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta83"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b83"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[83] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[83] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta84 :List of 11
##   .. .. .. ..$ hyperid           : num 103084
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta84"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b84"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[84] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[84] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta85 :List of 11
##   .. .. .. ..$ hyperid           : num 103085
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta85"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b85"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[85] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[85] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta86 :List of 11
##   .. .. .. ..$ hyperid           : num 103086
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta86"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b86"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[86] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[86] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta87 :List of 11
##   .. .. .. ..$ hyperid           : num 103087
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta87"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b87"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[87] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[87] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta88 :List of 11
##   .. .. .. ..$ hyperid           : num 103088
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta88"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b88"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[88] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[88] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta89 :List of 11
##   .. .. .. ..$ hyperid           : num 103089
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta89"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b89"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[89] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[89] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta90 :List of 11
##   .. .. .. ..$ hyperid           : num 103090
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta90"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b90"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[90] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[90] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta91 :List of 11
##   .. .. .. ..$ hyperid           : num 103091
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta91"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b91"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[91] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[91] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta92 :List of 11
##   .. .. .. ..$ hyperid           : num 103092
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta92"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b92"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[92] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[92] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta93 :List of 11
##   .. .. .. ..$ hyperid           : num 103093
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta93"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b93"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[93] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[93] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta94 :List of 11
##   .. .. .. ..$ hyperid           : num 103094
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta94"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b94"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[94] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[94] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta95 :List of 11
##   .. .. .. ..$ hyperid           : num 103095
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta95"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b95"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[95] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[95] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta96 :List of 11
##   .. .. .. ..$ hyperid           : num 103096
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta96"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b96"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[96] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[96] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta97 :List of 11
##   .. .. .. ..$ hyperid           : num 103097
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta97"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b97"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[97] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[97] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta98 :List of 11
##   .. .. .. ..$ hyperid           : num 103098
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta98"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b98"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[98] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[98] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta99 :List of 11
##   .. .. .. ..$ hyperid           : num 103099
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta99"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b99"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[99] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[99] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. [list output truncated]
##   .. ..- attr(*, "class")= chr [1:2] "ctrl_lp_scale" "inla_ctrl_object"
##   ..$ control.pardiso  :List of 4
##   .. ..$ verbose            : logi FALSE
##   .. ..$ debug              : logi FALSE
##   .. ..$ parallel.reordering: logi TRUE
##   .. ..$ nrhs               : num -1
##   .. ..- attr(*, "class")= chr [1:2] "ctrl_pardiso" "inla_ctrl_object"
##   ..$ only.hyperparam  : logi FALSE
##   ..$ inla.call        : chr "/home/rierasl/R/x86_64-pc-linux-gnu-library/4.4/INLA/bin/linux/64bit/inla.mkl.run"
##   ..$ num.threads      : chr "24:1"
##   ..$ keep             : logi FALSE
##   ..$ silent           : logi TRUE
##   ..$ inla.mode        : chr "compact"
##   ..$ safe             : logi TRUE
##   ..$ debug            : logi FALSE
##   ..$ .parent.frame    :<environment: R_GlobalEnv> 
##  $ call                       : chr [1:14] "inla.core(formula = formula, family = family, contrasts = contrasts, " "    data = data, quantiles = quantiles, E = E, offset = offset, " "    scale = scale, weights = weights, Ntrials = Ntrials, strata = strata, " "    lp.scale = lp.scale, link.covariates = link.covariates, verbose = verbose, " ...
##  $ model.matrix               :Formal class 'dsparseModelMatrix' [package "MatrixModels"] with 8 slots
##   .. ..@ i        : int(0) 
##   .. ..@ p        : int 0
##   .. ..@ Dim      : int [1:2] 55730 0
##   .. ..@ Dimnames :List of 2
##   .. .. ..$ : chr [1:55730] "1" "2" "3" "4" ...
##   .. .. ..$ : NULL
##   .. ..@ x        : num(0) 
##   .. ..@ factors  : list()
##   .. ..@ assign   : int(0) 
##   .. ..@ contrasts: Named list()
##  $ bru_iinla                  :List of 5
##   ..$ log       :Class 'bru_log'  hidden list of 2
##   .. ..$ log      : chr [1:7] "2024-05-27 23:47:26.626646: iinla: Evaluate component inputs" "2024-05-27 23:47:26.956138: iinla: Evaluate component linearisations" "2024-05-27 23:47:42.27473: iinla: Evaluate component simplifications" "2024-05-27 23:47:56.133069: iinla: Evaluate predictor linearisation" ...
##   .. ..$ bookmarks: Named int 0
##   .. .. ..- attr(*, "names")= chr "iinla"
##   ..$ states    :List of 1
##   .. ..$ :List of 3
##   .. .. ..$ Intercept : num 0
##   .. .. ..$ SpeedLimit: num 0
##   .. .. ..$ field     : num [1:55728] 0 0 0 0 0 0 0 0 0 0 ...
##   ..$ inla_stack:List of 3
##   .. ..$ A      :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. ..@ i       : int [1:103342] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. ..@ p       : int [1:55731] 0 25842 51684 51684 51684 51686 51686 51694 51700 51700 ...
##   .. .. .. ..@ Dim     : int [1:2] 25842 55730
##   .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. ..$ : NULL
##   .. .. .. .. ..$ : NULL
##   .. .. .. ..@ x       : num [1:103342] 1 1 1 1 1 1 1 1 1 1 ...
##   .. .. .. ..@ factors : list()
##   .. ..$ data   :List of 5
##   .. .. ..$ data :'data.frame':  25842 obs. of  6 variables:
##   .. .. .. ..$ BRU.response: num [1:25842] 99.8 91.7 99.8 14.5 16.1 ...
##   .. .. .. ..$ BRU.E       : num [1:25842] 1 1 1 1 1 1 1 1 1 1 ...
##   .. .. .. ..$ BRU.Ntrials : num [1:25842] 1 1 1 1 1 1 1 1 1 1 ...
##   .. .. .. ..$ BRU.weights : num [1:25842] 1 1 1 1 1 1 1 1 1 1 ...
##   .. .. .. ..$ BRU.scale   : num [1:25842] 1 1 1 1 1 1 1 1 1 1 ...
##   .. .. .. ..$ BRU.offset  : num [1:25842] 0 0 0 0 0 0 0 0 0 0 ...
##   .. .. ..$ nrow : int 25842
##   .. .. ..$ ncol : Named int [1:6] 1 1 1 1 1 1
##   .. .. .. ..- attr(*, "names")= chr [1:6] "BRU.response" "BRU.E" "BRU.Ntrials" "BRU.weights" ...
##   .. .. ..$ names:List of 6
##   .. .. .. ..$ BRU.response: chr "BRU.response"
##   .. .. .. ..$ BRU.E       : chr "BRU.E"
##   .. .. .. ..$ BRU.Ntrials : chr "BRU.Ntrials"
##   .. .. .. ..$ BRU.weights : chr "BRU.weights"
##   .. .. .. ..$ BRU.scale   : chr "BRU.scale"
##   .. .. .. ..$ BRU.offset  : chr "BRU.offset"
##   .. .. ..$ index:List of 1
##   .. .. .. ..$ : num [1:25842] 1 2 3 4 5 6 7 8 9 10 ...
##   .. .. ..- attr(*, "class")= chr "inla.data.stack.info"
##   .. ..$ effects:List of 5
##   .. .. ..$ data :'data.frame':  55730 obs. of  9 variables:
##   .. .. .. ..$ Intercept       : num [1:55730] 1 NA NA NA NA NA NA NA NA NA ...
##   .. .. .. ..$ Intercept.group : int [1:55730] 1 NA NA NA NA NA NA NA NA NA ...
##   .. .. .. ..$ Intercept.repl  : int [1:55730] 1 NA NA NA NA NA NA NA NA NA ...
##   .. .. .. ..$ SpeedLimit      : num [1:55730] NA 1 NA NA NA NA NA NA NA NA ...
##   .. .. .. ..$ SpeedLimit.group: int [1:55730] NA 1 NA NA NA NA NA NA NA NA ...
##   .. .. .. ..$ SpeedLimit.repl : int [1:55730] NA 1 NA NA NA NA NA NA NA NA ...
##   .. .. .. ..$ field           : int [1:55730] NA NA 1 2 3 4 5 6 7 8 ...
##   .. .. .. ..$ field.group     : int [1:55730] NA NA 1 1 1 1 1 1 1 1 ...
##   .. .. .. ..$ field.repl      : int [1:55730] NA NA 1 1 1 1 1 1 1 1 ...
##   .. .. ..$ nrow : int 55730
##   .. .. ..$ ncol : Named int [1:9] 1 1 1 1 1 1 1 1 1
##   .. .. .. ..- attr(*, "names")= chr [1:9] "Intercept" "Intercept.group" "Intercept.repl" "SpeedLimit" ...
##   .. .. ..$ names:List of 9
##   .. .. .. ..$ Intercept       : chr "Intercept"
##   .. .. .. ..$ Intercept.group : chr "Intercept.group"
##   .. .. .. ..$ Intercept.repl  : chr "Intercept.repl"
##   .. .. .. ..$ SpeedLimit      : chr "SpeedLimit"
##   .. .. .. ..$ SpeedLimit.group: chr "SpeedLimit.group"
##   .. .. .. ..$ SpeedLimit.repl : chr "SpeedLimit.repl"
##   .. .. .. ..$ field           : chr "field"
##   .. .. .. ..$ field.group     : chr "field.group"
##   .. .. .. ..$ field.repl      : chr "field.repl"
##   .. .. ..$ index:List of 3
##   .. .. .. ..$ : int 1
##   .. .. .. ..$ : int 2
##   .. .. .. ..$ : int [1:55728] 3 4 5 6 7 8 9 10 11 12 ...
##   .. .. ..- attr(*, "class")= chr "inla.data.stack.info"
##   .. ..- attr(*, "class")= chr "inla.data.stack"
##   ..$ track     :'data.frame':   111466 obs. of  6 variables:
##   .. ..$ effect           : chr [1:111466] "Intercept" "SpeedLimit" "field" "field" ...
##   .. ..$ index            : num [1:111466] 1 1 1 2 3 4 5 6 7 8 ...
##   .. ..$ iteration        : num [1:111466] 0 0 0 0 0 0 0 0 0 0 ...
##   .. ..$ mode             : num [1:111466] NA NA NA NA NA NA NA NA NA NA ...
##   .. ..$ sd               : num [1:111466] NA NA NA NA NA NA NA NA NA NA ...
##   .. ..$ new_linearisation: num [1:111466] 0 0 0 0 0 0 0 0 0 0 ...
##   ..$ timings   :'data.frame':   2 obs. of  5 variables:
##   .. ..$ Task     : chr [1:2] "Preprocess" "Run inla()"
##   .. ..$ Iteration: num [1:2] 1 1
##   .. ..$ Time     : 'difftime' num [1:2] 90.2940000000001 488.255
##   .. .. ..- attr(*, "units")= chr "secs"
##   .. ..$ System   : 'difftime' num [1:2] 0.0940000000000003 0.347999999999999
##   .. .. ..- attr(*, "units")= chr "secs"
##   .. ..$ Elapsed  : 'difftime' num [1:2] 101.988 67.913
##   .. .. ..- attr(*, "units")= chr "secs"
##  $ bru_timings                :'data.frame': 3 obs. of  5 variables:
##   ..$ Task     : chr [1:3] "Preprocess" "Preprocess" "Run inla()"
##   ..$ Iteration: num [1:3] 0 1 1
##   ..$ Time     : 'difftime' num [1:3] 0.0989999999999327 90.2940000000001 488.255
##   .. ..- attr(*, "units")= chr "secs"
##   ..$ System   : 'difftime' num [1:3] 0 0.0940000000000003 0.347999999999999
##   .. ..- attr(*, "units")= chr "secs"
##   ..$ Elapsed  : 'difftime' num [1:3] 0.0999999999999659 101.988 67.913
##   .. ..- attr(*, "units")= chr "secs"
##  $ bru_info                   :List of 6
##   ..$ method         : chr "bru"
##   ..$ model          :List of 2
##   .. ..$ effects:List of 3
##   .. .. ..$ Intercept :List of 12
##   .. .. .. ..$ label       : chr "Intercept"
##   .. .. .. ..$ inla.formula:Class 'formula'  language ~. + f(Intercept, model = BRU_Intercept_main_model, ngroup = 1, nrep = 1,      values = BRU_Intercept_values)
##   .. .. .. .. .. ..- attr(*, ".Environment")=<environment: R_GlobalEnv> 
##   .. .. .. ..$ main        :List of 8
##   .. .. .. .. ..$ input         :List of 4
##   .. .. .. .. .. ..$ input   : num 1
##   .. .. .. .. .. ..$ label   : chr "Intercept"
##   .. .. .. .. .. ..$ layer   : NULL
##   .. .. .. .. .. ..$ selector: NULL
##   .. .. .. .. .. ..- attr(*, "class")= chr [1:2] "bru_input" "list"
##   .. .. .. .. ..$ mapper        : list()
##   .. .. .. .. .. ..- attr(*, "class")= chr [1:3] "bru_mapper_linear" "bru_mapper" "list"
##   .. .. .. .. ..$ model         : chr "linear"
##   .. .. .. .. ..$ type          : chr "linear"
##   .. .. .. .. ..$ n             : int 1
##   .. .. .. .. ..$ values        : num 1
##   .. .. .. .. ..$ season.length : NULL
##   .. .. .. .. ..$ factor_mapping: NULL
##   .. .. .. .. ..- attr(*, "class")= chr [1:2] "bru_subcomponent" "list"
##   .. .. .. ..$ group       :List of 8
##   .. .. .. .. ..$ input         :List of 4
##   .. .. .. .. .. ..$ input   : int 1
##   .. .. .. .. .. ..$ label   : chr "Intercept.group"
##   .. .. .. .. .. ..$ layer   : NULL
##   .. .. .. .. .. ..$ selector: NULL
##   .. .. .. .. .. ..- attr(*, "class")= chr [1:2] "bru_input" "list"
##   .. .. .. .. ..$ mapper        :List of 1
##   .. .. .. .. .. ..$ n: num 1
##   .. .. .. .. .. ..- attr(*, "class")= chr [1:3] "bru_mapper_index" "bru_mapper" "list"
##   .. .. .. .. ..$ model         : chr "exchangeable"
##   .. .. .. .. ..$ type          : chr "exchangeable"
##   .. .. .. .. ..$ n             : num 1
##   .. .. .. .. ..$ values        : int 1
##   .. .. .. .. ..$ season.length : NULL
##   .. .. .. .. ..$ factor_mapping: NULL
##   .. .. .. .. ..- attr(*, "class")= chr [1:2] "bru_subcomponent" "list"
##   .. .. .. ..$ replicate   :List of 8
##   .. .. .. .. ..$ input         :List of 4
##   .. .. .. .. .. ..$ input   : int 1
##   .. .. .. .. .. ..$ label   : chr "Intercept.repl"
##   .. .. .. .. .. ..$ layer   : NULL
##   .. .. .. .. .. ..$ selector: NULL
##   .. .. .. .. .. ..- attr(*, "class")= chr [1:2] "bru_input" "list"
##   .. .. .. .. ..$ mapper        :List of 1
##   .. .. .. .. .. ..$ n: num 1
##   .. .. .. .. .. ..- attr(*, "class")= chr [1:3] "bru_mapper_index" "bru_mapper" "list"
##   .. .. .. .. ..$ model         : chr "iid"
##   .. .. .. .. ..$ type          : chr "iid"
##   .. .. .. .. ..$ n             : num 1
##   .. .. .. .. ..$ values        : int 1
##   .. .. .. .. ..$ season.length : NULL
##   .. .. .. .. ..$ factor_mapping: NULL
##   .. .. .. .. ..- attr(*, "class")= chr [1:2] "bru_subcomponent" "list"
##   .. .. .. ..$ weights     : NULL
##   .. .. .. ..$ copy        : NULL
##   .. .. .. ..$ marginal    : NULL
##   .. .. .. ..$ env         :<environment: R_GlobalEnv> 
##   .. .. .. ..$ env_extra   :<environment: 0x5a1a79e276e0> 
##   .. .. .. ..$ fcall       : language "f"(Intercept, model = BRU_Intercept_main_model, ngroup = 1, nrep = 1,      values = BRU_Intercept_values)
##   .. .. .. ..$ mapper      :List of 6
##   .. .. .. .. ..$ mappers  :List of 2
##   .. .. .. .. .. ..$ mapper:List of 9
##   .. .. .. .. .. .. ..$ mappers          :List of 3
##   .. .. .. .. .. .. .. ..$ main     : list()
##   .. .. .. .. .. .. .. .. ..- attr(*, "class")= chr [1:3] "bru_mapper_linear" "bru_mapper" "list"
##   .. .. .. .. .. .. .. ..$ group    :List of 1
##   .. .. .. .. .. .. .. .. ..$ n: num 1
##   .. .. .. .. .. .. .. .. ..- attr(*, "class")= chr [1:3] "bru_mapper_index" "bru_mapper" "list"
##   .. .. .. .. .. .. .. ..$ replicate:List of 1
##   .. .. .. .. .. .. .. .. ..$ n: num 1
##   .. .. .. .. .. .. .. .. ..- attr(*, "class")= chr [1:3] "bru_mapper_index" "bru_mapper" "list"
##   .. .. .. .. .. .. ..$ n_multi          :List of 3
##   .. .. .. .. .. .. .. ..$ main     : int 1
##   .. .. .. .. .. .. .. ..$ group    : num 1
##   .. .. .. .. .. .. .. ..$ replicate: num 1
##   .. .. .. .. .. .. ..$ n_inla_multi     :List of 3
##   .. .. .. .. .. .. .. ..$ main     : int 1
##   .. .. .. .. .. .. .. ..$ group    : num 1
##   .. .. .. .. .. .. .. ..$ replicate: num 1
##   .. .. .. .. .. .. ..$ values_multi     :List of 3
##   .. .. .. .. .. .. .. ..$ main     : num 1
##   .. .. .. .. .. .. .. ..$ group    : int 1
##   .. .. .. .. .. .. .. ..$ replicate: int 1
##   .. .. .. .. .. .. ..$ values_inla_multi:List of 3
##   .. .. .. .. .. .. .. ..$ main     : num 1
##   .. .. .. .. .. .. .. ..$ group    : int 1
##   .. .. .. .. .. .. .. ..$ replicate: int 1
##   .. .. .. .. .. .. ..$ is_linear_multi  :List of 3
##   .. .. .. .. .. .. .. ..$ main     : logi TRUE
##   .. .. .. .. .. .. .. ..$ group    : logi TRUE
##   .. .. .. .. .. .. .. ..$ replicate: logi TRUE
##   .. .. .. .. .. .. ..$ n                : num 1
##   .. .. .. .. .. .. ..$ n_inla           : num 1
##   .. .. .. .. .. .. ..$ is_linear        : logi TRUE
##   .. .. .. .. .. .. ..- attr(*, "class")= chr [1:3] "bru_mapper_multi" "bru_mapper" "list"
##   .. .. .. .. .. ..$ scale : list()
##   .. .. .. .. .. .. ..- attr(*, "class")= chr [1:3] "bru_mapper_scale" "bru_mapper" "list"
##   .. .. .. .. ..$          : Named logi [1:2] TRUE TRUE
##   .. .. .. .. .. ..- attr(*, "names")= chr [1:2] "mapper" "scale"
##   .. .. .. .. ..$ is_linear: logi TRUE
##   .. .. .. .. ..$ n_multi  : Named int [1:2] 1 NA
##   .. .. .. .. .. ..- attr(*, "names")= chr [1:2] "mapper" "scale"
##   .. .. .. .. ..$ n        : num 1
##   .. .. .. .. ..$ names    : chr [1:2] "mapper" "scale"
##   .. .. .. .. ..- attr(*, "class")= chr [1:3] "bru_mapper_pipe" "bru_mapper" "list"
##   .. .. .. ..- attr(*, "class")= chr [1:2] "component" "list"
##   .. .. ..$ SpeedLimit:List of 12
##   .. .. .. ..$ label       : chr "SpeedLimit"
##   .. .. .. ..$ inla.formula:Class 'formula'  language ~. + f(SpeedLimit, model = BRU_SpeedLimit_main_model, ngroup = 1, nrep = 1,      values = BRU_SpeedLimit_values)
##   .. .. .. .. .. ..- attr(*, ".Environment")=<environment: R_GlobalEnv> 
##   .. .. .. ..$ main        :List of 8
##   .. .. .. .. ..$ input         :List of 4
##   .. .. .. .. .. ..$ input   : symbol SpeedLimit
##   .. .. .. .. .. ..$ label   : chr "SpeedLimit"
##   .. .. .. .. .. ..$ layer   : NULL
##   .. .. .. .. .. ..$ selector: NULL
##   .. .. .. .. .. ..- attr(*, "class")= chr [1:2] "bru_input" "list"
##   .. .. .. .. ..$ mapper        : list()
##   .. .. .. .. .. ..- attr(*, "class")= chr [1:3] "bru_mapper_linear" "bru_mapper" "list"
##   .. .. .. .. ..$ model         : chr "linear"
##   .. .. .. .. ..$ type          : chr "linear"
##   .. .. .. .. ..$ n             : int 1
##   .. .. .. .. ..$ values        : num 1
##   .. .. .. .. ..$ season.length : NULL
##   .. .. .. .. ..$ factor_mapping: NULL
##   .. .. .. .. ..- attr(*, "class")= chr [1:2] "bru_subcomponent" "list"
##   .. .. .. ..$ group       :List of 8
##   .. .. .. .. ..$ input         :List of 4
##   .. .. .. .. .. ..$ input   : int 1
##   .. .. .. .. .. ..$ label   : chr "SpeedLimit.group"
##   .. .. .. .. .. ..$ layer   : NULL
##   .. .. .. .. .. ..$ selector: NULL
##   .. .. .. .. .. ..- attr(*, "class")= chr [1:2] "bru_input" "list"
##   .. .. .. .. ..$ mapper        :List of 1
##   .. .. .. .. .. ..$ n: num 1
##   .. .. .. .. .. ..- attr(*, "class")= chr [1:3] "bru_mapper_index" "bru_mapper" "list"
##   .. .. .. .. ..$ model         : chr "exchangeable"
##   .. .. .. .. ..$ type          : chr "exchangeable"
##   .. .. .. .. ..$ n             : num 1
##   .. .. .. .. ..$ values        : int 1
##   .. .. .. .. ..$ season.length : NULL
##   .. .. .. .. ..$ factor_mapping: NULL
##   .. .. .. .. ..- attr(*, "class")= chr [1:2] "bru_subcomponent" "list"
##   .. .. .. ..$ replicate   :List of 8
##   .. .. .. .. ..$ input         :List of 4
##   .. .. .. .. .. ..$ input   : int 1
##   .. .. .. .. .. ..$ label   : chr "SpeedLimit.repl"
##   .. .. .. .. .. ..$ layer   : NULL
##   .. .. .. .. .. ..$ selector: NULL
##   .. .. .. .. .. ..- attr(*, "class")= chr [1:2] "bru_input" "list"
##   .. .. .. .. ..$ mapper        :List of 1
##   .. .. .. .. .. ..$ n: num 1
##   .. .. .. .. .. ..- attr(*, "class")= chr [1:3] "bru_mapper_index" "bru_mapper" "list"
##   .. .. .. .. ..$ model         : chr "iid"
##   .. .. .. .. ..$ type          : chr "iid"
##   .. .. .. .. ..$ n             : num 1
##   .. .. .. .. ..$ values        : int 1
##   .. .. .. .. ..$ season.length : NULL
##   .. .. .. .. ..$ factor_mapping: NULL
##   .. .. .. .. ..- attr(*, "class")= chr [1:2] "bru_subcomponent" "list"
##   .. .. .. ..$ weights     : NULL
##   .. .. .. ..$ copy        : NULL
##   .. .. .. ..$ marginal    : NULL
##   .. .. .. ..$ env         :<environment: R_GlobalEnv> 
##   .. .. .. ..$ env_extra   :<environment: 0x5a1a79dfe278> 
##   .. .. .. ..$ fcall       : language "f"(SpeedLimit, model = BRU_SpeedLimit_main_model, ngroup = 1, nrep = 1,      values = BRU_SpeedLimit_values)
##   .. .. .. ..$ mapper      :List of 6
##   .. .. .. .. ..$ mappers  :List of 2
##   .. .. .. .. .. ..$ mapper:List of 9
##   .. .. .. .. .. .. ..$ mappers          :List of 3
##   .. .. .. .. .. .. .. ..$ main     : list()
##   .. .. .. .. .. .. .. .. ..- attr(*, "class")= chr [1:3] "bru_mapper_linear" "bru_mapper" "list"
##   .. .. .. .. .. .. .. ..$ group    :List of 1
##   .. .. .. .. .. .. .. .. ..$ n: num 1
##   .. .. .. .. .. .. .. .. ..- attr(*, "class")= chr [1:3] "bru_mapper_index" "bru_mapper" "list"
##   .. .. .. .. .. .. .. ..$ replicate:List of 1
##   .. .. .. .. .. .. .. .. ..$ n: num 1
##   .. .. .. .. .. .. .. .. ..- attr(*, "class")= chr [1:3] "bru_mapper_index" "bru_mapper" "list"
##   .. .. .. .. .. .. ..$ n_multi          :List of 3
##   .. .. .. .. .. .. .. ..$ main     : int 1
##   .. .. .. .. .. .. .. ..$ group    : num 1
##   .. .. .. .. .. .. .. ..$ replicate: num 1
##   .. .. .. .. .. .. ..$ n_inla_multi     :List of 3
##   .. .. .. .. .. .. .. ..$ main     : int 1
##   .. .. .. .. .. .. .. ..$ group    : num 1
##   .. .. .. .. .. .. .. ..$ replicate: num 1
##   .. .. .. .. .. .. ..$ values_multi     :List of 3
##   .. .. .. .. .. .. .. ..$ main     : num 1
##   .. .. .. .. .. .. .. ..$ group    : int 1
##   .. .. .. .. .. .. .. ..$ replicate: int 1
##   .. .. .. .. .. .. ..$ values_inla_multi:List of 3
##   .. .. .. .. .. .. .. ..$ main     : num 1
##   .. .. .. .. .. .. .. ..$ group    : int 1
##   .. .. .. .. .. .. .. ..$ replicate: int 1
##   .. .. .. .. .. .. ..$ is_linear_multi  :List of 3
##   .. .. .. .. .. .. .. ..$ main     : logi TRUE
##   .. .. .. .. .. .. .. ..$ group    : logi TRUE
##   .. .. .. .. .. .. .. ..$ replicate: logi TRUE
##   .. .. .. .. .. .. ..$ n                : num 1
##   .. .. .. .. .. .. ..$ n_inla           : num 1
##   .. .. .. .. .. .. ..$ is_linear        : logi TRUE
##   .. .. .. .. .. .. ..- attr(*, "class")= chr [1:3] "bru_mapper_multi" "bru_mapper" "list"
##   .. .. .. .. .. ..$ scale : list()
##   .. .. .. .. .. .. ..- attr(*, "class")= chr [1:3] "bru_mapper_scale" "bru_mapper" "list"
##   .. .. .. .. ..$          : Named logi [1:2] TRUE TRUE
##   .. .. .. .. .. ..- attr(*, "names")= chr [1:2] "mapper" "scale"
##   .. .. .. .. ..$ is_linear: logi TRUE
##   .. .. .. .. ..$ n_multi  : Named int [1:2] 1 NA
##   .. .. .. .. .. ..- attr(*, "names")= chr [1:2] "mapper" "scale"
##   .. .. .. .. ..$ n        : num 1
##   .. .. .. .. ..$ names    : chr [1:2] "mapper" "scale"
##   .. .. .. .. ..- attr(*, "class")= chr [1:3] "bru_mapper_pipe" "bru_mapper" "list"
##   .. .. .. ..- attr(*, "class")= chr [1:2] "component" "list"
##   .. .. ..$ field     :List of 12
##   .. .. .. ..$ label       : chr "field"
##   .. .. .. ..$ inla.formula:Class 'formula'  language ~. + f(field, model = BRU_field_main_model, replicate = field.repl, ngroup = 1,      nrep = 4L, values = BRU_field_values)
##   .. .. .. .. .. ..- attr(*, ".Environment")=<environment: R_GlobalEnv> 
##   .. .. .. ..$ main        :List of 8
##   .. .. .. .. ..$ input         :List of 4
##   .. .. .. .. .. ..$ input   : symbol loc
##   .. .. .. .. .. ..$ label   : chr "field"
##   .. .. .. .. .. ..$ layer   : NULL
##   .. .. .. .. .. ..$ selector: NULL
##   .. .. .. .. .. ..- attr(*, "class")= chr [1:2] "bru_input" "list"
##   .. .. .. .. ..$ mapper        :List of 1
##   .. .. .. .. .. ..$ model:List of 21
##   .. .. .. .. .. .. ..$ f                   :List of 3
##   .. .. .. .. .. .. .. ..$ model   : chr "cgeneric"
##   .. .. .. .. .. .. .. ..$ n       : int 13932
##   .. .. .. .. .. .. .. ..$ cgeneric:List of 5
##   .. .. .. .. .. .. .. .. ..$ model: chr "inla_cgeneric_rspde_nonstat_int_model"
##   .. .. .. .. .. .. .. .. ..$ shlib: chr "/home/rierasl/R/x86_64-pc-linux-gnu-library/4.4/INLA/bin/linux/64bit/external/rSPDE/librSPDE.so"
##   .. .. .. .. .. .. .. .. ..$ n    : int 13932
##   .. .. .. .. .. .. .. .. ..$ debug: logi FALSE
##   .. .. .. .. .. .. .. .. ..$ data :List of 5
##   .. .. .. .. .. .. .. .. .. ..$ ints      :List of 5
##   .. .. .. .. .. .. .. .. .. .. ..$ n          : int 13932
##   .. .. .. .. .. .. .. .. .. .. ..$ debug      : int 0
##   .. .. .. .. .. .. .. .. .. .. ..$ graph_opt_i: int [1:29068] 0 0 0 0 1 1 1 1 1 2 ...
##   .. .. .. .. .. .. .. .. .. .. ..$ graph_opt_j: int [1:29068] 0 5681 8781 11463 1 8781 11429 11463 13882 2 ...
##   .. .. .. .. .. .. .. .. .. .. ..$ alpha      : int 1
##   .. .. .. .. .. .. .. .. .. ..$ doubles   :List of 2
##   .. .. .. .. .. .. .. .. .. .. ..$ start.theta     : num [1:4] 2.86 -1.4 0 0
##   .. .. .. .. .. .. .. .. .. .. ..$ theta.prior.mean: num [1:4] 2.86 -1.4 0 0
##   .. .. .. .. .. .. .. .. .. ..$ characters:List of 3
##   .. .. .. .. .. .. .. .. .. .. ..$ model            : chr "inla_cgeneric_rspde_nonstat_int_model"
##   .. .. .. .. .. .. .. .. .. .. ..$ shlib            : chr "/home/rierasl/R/x86_64-pc-linux-gnu-library/4.4/INLA/bin/linux/64bit/external/rSPDE/librSPDE.so"
##   .. .. .. .. .. .. .. .. .. .. ..$ prior.theta.param: chr "theta"
##   .. .. .. .. .. .. .. .. .. ..$ matrices  :List of 3
##   .. .. .. .. .. .. .. .. .. .. ..$ B_tau           : num [1:69662] 13932 5 -0.693 -1 0.5 ...
##   .. .. .. .. .. .. .. .. .. .. ..$ B_kappa         : num [1:69662] 13932 5 0.693 0 -1 ...
##   .. .. .. .. .. .. .. .. .. .. ..$ theta.prior.prec: num [1:18] 4 4 0.1 0 0 0 0 0.1 0 0 ...
##   .. .. .. .. .. .. .. .. .. ..$ smatrices :List of 2
##   .. .. .. .. .. .. .. .. .. .. ..$ C: num [1:41799] 13932 13932 13932 0 1 ...
##   .. .. .. .. .. .. .. .. .. .. ..$ G: num [1:132615] 13932 13932 44204 0 5681 ...
##   .. .. .. .. .. .. .. .. ..- attr(*, "class")= chr "inla.cgeneric"
##   .. .. .. .. .. .. ..$ cgeneric_type       : chr "int_alpha"
##   .. .. .. .. .. .. ..$ nu                  : num 0.5
##   .. .. .. .. .. .. ..$ theta.prior.mean    : num [1:4] 2.86 -1.4 0 0
##   .. .. .. .. .. .. ..$ prior.nu            :List of 4
##   .. .. .. .. .. .. .. ..$ loglocation: num -5e-06
##   .. .. .. .. .. .. .. ..$ mean       : num 1
##   .. .. .. .. .. .. .. ..$ prec       : num 3
##   .. .. .. .. .. .. .. ..$ logscale   : num 1
##   .. .. .. .. .. .. ..$ theta.prior.prec    : num [1:4, 1:4] 0.1 0 0 0 0 0.1 0 0 0 0 ...
##   .. .. .. .. .. .. ..$ start.nu            : num 0.5
##   .. .. .. .. .. .. ..$ integer.nu          : logi TRUE
##   .. .. .. .. .. .. ..$ start.theta         : num [1:4] 2.86 -1.4 0 0
##   .. .. .. .. .. .. ..$ stationary          : logi FALSE
##   .. .. .. .. .. .. ..$ rspde.order         : num 2
##   .. .. .. .. .. .. ..$ dim                 : num 1
##   .. .. .. .. .. .. ..$ est_nu              : logi FALSE
##   .. .. .. .. .. .. ..$ nu.upper.bound      : num 2
##   .. .. .. .. .. .. ..$ prior.nu.dist       : chr "lognormal"
##   .. .. .. .. .. .. ..$ debug               : logi FALSE
##   .. .. .. .. .. .. ..$ type.rational.approx: chr "chebfun"
##   .. .. .. .. .. .. ..$ mesh                :Classes 'metric_graph', 'R6' <metric_graph>
##   Public:
##     add_mesh_observations: function (data = NULL, group = NULL) 
##     add_observations: function (data = NULL, edge_number = "edge_number", distance_on_edge = "distance_on_edge", 
##     build_mesh: function (h = NULL, n = NULL, continuous = TRUE, continuous.outs = FALSE, 
##     buildC: function (alpha = 2, edge_constraint = FALSE) 
##     buildDirectionalConstraints: function (alpha = 1) 
##     C: NULL
##     characteristics: list
##     check_distance_consistency: function () 
##     check_euclidean: function () 
##     clear_observations: function () 
##     clone: function (deep = FALSE) 
##     CoB: NULL
##     compute_characteristics: function (check_euclidean = FALSE) 
##     compute_fem: function (petrov = FALSE) 
##     compute_geodist: function (full = FALSE, obs = TRUE, group = NULL, verbose = 0) 
##     compute_geodist_mesh: function () 
##     compute_geodist_PtE: function (PtE, normalized = TRUE, include_vertices = TRUE, verbose = 0) 
##     compute_laplacian: function (full = FALSE, obs = TRUE, group = NULL, verbose = 0) 
##     compute_PtE_edges: function () 
##     compute_resdist: function (full = FALSE, obs = TRUE, group = NULL, check_euclidean = FALSE, 
##     compute_resdist_mesh: function () 
##     compute_resdist_PtE: function (PtE, normalized = TRUE, include_vertices = FALSE, check_euclidean = FALSE, 
##     coordinates: function (PtE = NULL, XY = NULL, normalized = TRUE) 
##     drop_na: function (...) 
##     E: 1 3 5 7 9 9 10 12 13 14 15 12 18 19 21 20 22 24 26 28 30 ...
##     edge_lengths: 0.0820202978316493 0.13610246403764 0.07378151878521 0.0 ...
##     edges: metric_graph_edges
##     edgeweight_to_data: function (loc = NULL, mesh = FALSE, data_loc = FALSE, weight_col = NULL, 
##     fem_basis: function (PtE) 
##     filter: function (..., .drop_na = FALSE, .drop_all_na = TRUE) 
##     geo_dist: list
##     get_data: function (group = NULL, tibble = TRUE, drop_na = FALSE, drop_all_na = TRUE) 
##     get_degrees: function (which = "degree") 
##     get_edge_lengths: function (unit = NULL) 
##     get_edge_weights: function (data.frame = FALSE, tibble = TRUE) 
##     get_groups: function (get_cols = FALSE) 
##     get_initial_graph: function () 
##     get_locations: function () 
##     get_mesh_locations: function (bru = FALSE, loc = NULL, normalized = TRUE) 
##     get_PtE: function () 
##     get_vertices_incomp_dir: function () 
##     initialize: function (edges = NULL, V = NULL, E = NULL, vertex_unit = NULL, 
##     is_tree: function () 
##     Laplacian: NULL
##     mesh: list
##     mesh_A: function (PtE) 
##     mutate: function (..., .drop_na = FALSE, .drop_all_na = TRUE) 
##     nE: 11104
##     nV: 8781
##     observation_to_vertex: function (tolerance = 1e-15, mesh_warning = TRUE) 
##     plot: function (data = NULL, newdata = NULL, group = 1, plotly = FALSE, 
##     plot_connections: function () 
##     plot_function: function (data = NULL, newdata = NULL, group = 1, X = NULL, plotly = FALSE, 
##     plot_movie: function (X, plotly = TRUE, vertex_size = 5, vertex_color = "black", 
##     print: function () 
##     process_data: function (data = NULL, edge_number = "edge_number", distance_on_edge = "distance_on_edge", 
##     prune_vertices: function (check_weights = TRUE, verbose = FALSE) 
##     PtV: NULL
##     res_dist: NULL
##     select: function (..., .drop_na = FALSE, .drop_all_na = TRUE) 
##     set_edge_weights: function (weights = rep(1, self$nE), kirchhoff_weights = NULL) 
##     summarise: function (..., .include_graph_groups = FALSE, .groups = NULL, 
##     summary: function (messages = FALSE, compute_characteristics = TRUE, check_euclidean = TRUE, 
##     V: -122.40171 -122.40078 -122.44449 -122.44331 -122.41216 - ...
##     vertices: metric_graph_vertices
##     VtEfirst: function () 
##   Private:
##     A: function (group = NULL, obs_to_vert = FALSE, drop_na = FALSE, 
##     add_vertices: function (PtE, tolerance = 1e-10, verbose) 
##     addinfo: FALSE
##     clear_initial_info: function () 
##     compute_degrees: function () 
##     compute_laplacian_PtE: function (PtE, normalized = TRUE, verbose = verbose) 
##     compute_lengths: function (longlat, unit, crs, proj4string, which_longlat, vertex_unit, 
##     connected: TRUE
##     coordinates_multiple_snaps: function (XY, tolerance, verbose = verbose, crs, proj4string, 
##     create_update_vertices: function () 
##     crs: crs
##     data: metric_graph_data, list
##     edge_weights: tbl_df, tbl, data.frame
##     find_edge_edge_points: function (tol, verbose, crs, proj4string, longlat, fact, which_longlat) 
##     find_mesh_bc: function () 
##     get_edge_weights_internal: function (data.frame = FALSE) 
##     group_col: .group
##     initial_edges_added: NULL
##     initial_graph: metric_graph, R6
##     kirchhoff_weights: NULL
##     length_unit: km
##     line_to_vertex: function (tolerance = 0, longlat = FALSE, fact, verbose, crs, 
##     longlat: TRUE
##     merge_close_vertices: function (tolerance, fact) 
##     merge.all.deg2: function () 
##     mesh_merge_deg2: function () 
##     mesh_merge_outs: function () 
##     move_V_first: function () 
##     plot_2d: function (line_width = 0.1, marker_size = 1, vertex_color = "black", 
##     plot_3d: function (line_width = 1, marker_size = 1, vertex_color = "rgb(0,0,0)", 
##     proj4string: NULL
##     prune_warning: FALSE
##     pruned: FALSE
##     PtE_to_mesh: function (PtE) 
##     ref_edges: 1 5502 2 359 3 4077 4 5117 5 7 5419 8 9 10 11 4817 4613  ...
##     remove_circles: function (threshold, verbose, longlat, unit, crs, proj4string, 
##     remove.first.deg2: function (res) 
##     set_first_weights: function (weights = rep(1, self$nE)) 
##     set_petrov_matrices: function () 
##     split_edge: function (Ei, t, tolerance = 0) 
##     temp_PtE: NULL
##     tolerance: list
##     transform: FALSE
##     vertex_unit: degrees
##     which_longlat: sf 
##   .. .. .. .. .. .. ..$ fem_mesh            :List of 4
##   .. .. .. .. .. .. .. ..$ c0:Formal class 'dgTMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. .. .. .. .. ..@ i       : int [1:13932] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. .. .. .. .. ..@ j       : int [1:13932] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. .. .. .. .. ..@ Dim     : int [1:2] 13932 13932
##   .. .. .. .. .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. .. .. .. ..@ x       : num [1:13932] 0.0534 0.0776 0.0408 0.0457 0.0367 ...
##   .. .. .. .. .. .. .. .. .. ..@ factors : list()
##   .. .. .. .. .. .. .. ..$ g1:Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. .. .. .. .. ..@ i       : int [1:44204] 0 5681 8781 11463 1 8781 11429 11463 13882 2 ...
##   .. .. .. .. .. .. .. .. .. ..@ p       : int [1:13933] 0 4 9 12 15 18 23 26 29 34 ...
##   .. .. .. .. .. .. .. .. .. ..@ Dim     : int [1:2] 13932 13932
##   .. .. .. .. .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. .. .. .. ..@ x       : num [1:44204] 210.6 -161.9 -24.4 -24.4 103.4 ...
##   .. .. .. .. .. .. .. .. .. ..@ factors : list()
##   .. .. .. .. .. .. .. ..$ g2:Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. .. .. .. .. ..@ i       : int [1:81554] 0 1 5399 5681 8781 11463 0 1 4450 8781 ...
##   .. .. .. .. .. .. .. .. .. ..@ p       : int [1:13933] 0 6 13 18 23 28 37 42 47 56 ...
##   .. .. .. .. .. .. .. .. .. ..@ Dim     : int [1:2] 13932 13932
##   .. .. .. .. .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. .. .. .. ..@ x       : num [1:81554] 1731368 28997 607384 -2117274 -125237 ...
##   .. .. .. .. .. .. .. .. .. ..@ factors : list()
##   .. .. .. .. .. .. .. ..$ g3:Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. .. .. .. .. ..@ i       : int [1:124984] 0 1 805 5399 5681 8781 11429 11463 13882 0 ...
##   .. .. .. .. .. .. .. .. .. ..@ p       : int [1:13933] 0 9 18 25 32 43 56 65 72 85 ...
##   .. .. .. .. .. .. .. .. .. ..@ Dim     : int [1:2] 13932 13932
##   .. .. .. .. .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. .. .. .. ..@ x       : num [1:124984] 1.84e+10 1.88e+08 -4.79e+08 9.57e+09 -2.57e+10 ...
##   .. .. .. .. .. .. .. .. .. ..@ factors : list()
##   .. .. .. .. .. .. ..$ parameterization    : chr "matern"
##   .. .. .. .. .. .. ..$ n.spde              : int 13932
##   .. .. .. .. .. .. ..- attr(*, "class")= chr [1:3] "rspde_metric_graph" "inla_rspde" "inla.cgeneric"
##   .. .. .. .. .. ..- attr(*, "class")= chr [1:3] "bru_mapper_inla_rspde" "bru_mapper" "list"
##   .. .. .. .. ..$ model         :List of 21
##   .. .. .. .. .. ..$ f                   :List of 3
##   .. .. .. .. .. .. ..$ model   : chr "cgeneric"
##   .. .. .. .. .. .. ..$ n       : int 13932
##   .. .. .. .. .. .. ..$ cgeneric:List of 5
##   .. .. .. .. .. .. .. ..$ model: chr "inla_cgeneric_rspde_nonstat_int_model"
##   .. .. .. .. .. .. .. ..$ shlib: chr "/home/rierasl/R/x86_64-pc-linux-gnu-library/4.4/INLA/bin/linux/64bit/external/rSPDE/librSPDE.so"
##   .. .. .. .. .. .. .. ..$ n    : int 13932
##   .. .. .. .. .. .. .. ..$ debug: logi FALSE
##   .. .. .. .. .. .. .. ..$ data :List of 5
##   .. .. .. .. .. .. .. .. ..$ ints      :List of 5
##   .. .. .. .. .. .. .. .. .. ..$ n          : int 13932
##   .. .. .. .. .. .. .. .. .. ..$ debug      : int 0
##   .. .. .. .. .. .. .. .. .. ..$ graph_opt_i: int [1:29068] 0 0 0 0 1 1 1 1 1 2 ...
##   .. .. .. .. .. .. .. .. .. ..$ graph_opt_j: int [1:29068] 0 5681 8781 11463 1 8781 11429 11463 13882 2 ...
##   .. .. .. .. .. .. .. .. .. ..$ alpha      : int 1
##   .. .. .. .. .. .. .. .. ..$ doubles   :List of 2
##   .. .. .. .. .. .. .. .. .. ..$ start.theta     : num [1:4] 2.86 -1.4 0 0
##   .. .. .. .. .. .. .. .. .. ..$ theta.prior.mean: num [1:4] 2.86 -1.4 0 0
##   .. .. .. .. .. .. .. .. ..$ characters:List of 3
##   .. .. .. .. .. .. .. .. .. ..$ model            : chr "inla_cgeneric_rspde_nonstat_int_model"
##   .. .. .. .. .. .. .. .. .. ..$ shlib            : chr "/home/rierasl/R/x86_64-pc-linux-gnu-library/4.4/INLA/bin/linux/64bit/external/rSPDE/librSPDE.so"
##   .. .. .. .. .. .. .. .. .. ..$ prior.theta.param: chr "theta"
##   .. .. .. .. .. .. .. .. ..$ matrices  :List of 3
##   .. .. .. .. .. .. .. .. .. ..$ B_tau           : num [1:69662] 13932 5 -0.693 -1 0.5 ...
##   .. .. .. .. .. .. .. .. .. ..$ B_kappa         : num [1:69662] 13932 5 0.693 0 -1 ...
##   .. .. .. .. .. .. .. .. .. ..$ theta.prior.prec: num [1:18] 4 4 0.1 0 0 0 0 0.1 0 0 ...
##   .. .. .. .. .. .. .. .. ..$ smatrices :List of 2
##   .. .. .. .. .. .. .. .. .. ..$ C: num [1:41799] 13932 13932 13932 0 1 ...
##   .. .. .. .. .. .. .. .. .. ..$ G: num [1:132615] 13932 13932 44204 0 5681 ...
##   .. .. .. .. .. .. .. ..- attr(*, "class")= chr "inla.cgeneric"
##   .. .. .. .. .. ..$ cgeneric_type       : chr "int_alpha"
##   .. .. .. .. .. ..$ nu                  : num 0.5
##   .. .. .. .. .. ..$ theta.prior.mean    : num [1:4] 2.86 -1.4 0 0
##   .. .. .. .. .. ..$ prior.nu            :List of 4
##   .. .. .. .. .. .. ..$ loglocation: num -5e-06
##   .. .. .. .. .. .. ..$ mean       : num 1
##   .. .. .. .. .. .. ..$ prec       : num 3
##   .. .. .. .. .. .. ..$ logscale   : num 1
##   .. .. .. .. .. ..$ theta.prior.prec    : num [1:4, 1:4] 0.1 0 0 0 0 0.1 0 0 0 0 ...
##   .. .. .. .. .. ..$ start.nu            : num 0.5
##   .. .. .. .. .. ..$ integer.nu          : logi TRUE
##   .. .. .. .. .. ..$ start.theta         : num [1:4] 2.86 -1.4 0 0
##   .. .. .. .. .. ..$ stationary          : logi FALSE
##   .. .. .. .. .. ..$ rspde.order         : num 2
##   .. .. .. .. .. ..$ dim                 : num 1
##   .. .. .. .. .. ..$ est_nu              : logi FALSE
##   .. .. .. .. .. ..$ nu.upper.bound      : num 2
##   .. .. .. .. .. ..$ prior.nu.dist       : chr "lognormal"
##   .. .. .. .. .. ..$ debug               : logi FALSE
##   .. .. .. .. .. ..$ type.rational.approx: chr "chebfun"
##   .. .. .. .. .. ..$ mesh                :Classes 'metric_graph', 'R6' <metric_graph>
##   Public:
##     add_mesh_observations: function (data = NULL, group = NULL) 
##     add_observations: function (data = NULL, edge_number = "edge_number", distance_on_edge = "distance_on_edge", 
##     build_mesh: function (h = NULL, n = NULL, continuous = TRUE, continuous.outs = FALSE, 
##     buildC: function (alpha = 2, edge_constraint = FALSE) 
##     buildDirectionalConstraints: function (alpha = 1) 
##     C: NULL
##     characteristics: list
##     check_distance_consistency: function () 
##     check_euclidean: function () 
##     clear_observations: function () 
##     clone: function (deep = FALSE) 
##     CoB: NULL
##     compute_characteristics: function (check_euclidean = FALSE) 
##     compute_fem: function (petrov = FALSE) 
##     compute_geodist: function (full = FALSE, obs = TRUE, group = NULL, verbose = 0) 
##     compute_geodist_mesh: function () 
##     compute_geodist_PtE: function (PtE, normalized = TRUE, include_vertices = TRUE, verbose = 0) 
##     compute_laplacian: function (full = FALSE, obs = TRUE, group = NULL, verbose = 0) 
##     compute_PtE_edges: function () 
##     compute_resdist: function (full = FALSE, obs = TRUE, group = NULL, check_euclidean = FALSE, 
##     compute_resdist_mesh: function () 
##     compute_resdist_PtE: function (PtE, normalized = TRUE, include_vertices = FALSE, check_euclidean = FALSE, 
##     coordinates: function (PtE = NULL, XY = NULL, normalized = TRUE) 
##     drop_na: function (...) 
##     E: 1 3 5 7 9 9 10 12 13 14 15 12 18 19 21 20 22 24 26 28 30 ...
##     edge_lengths: 0.0820202978316493 0.13610246403764 0.07378151878521 0.0 ...
##     edges: metric_graph_edges
##     edgeweight_to_data: function (loc = NULL, mesh = FALSE, data_loc = FALSE, weight_col = NULL, 
##     fem_basis: function (PtE) 
##     filter: function (..., .drop_na = FALSE, .drop_all_na = TRUE) 
##     geo_dist: list
##     get_data: function (group = NULL, tibble = TRUE, drop_na = FALSE, drop_all_na = TRUE) 
##     get_degrees: function (which = "degree") 
##     get_edge_lengths: function (unit = NULL) 
##     get_edge_weights: function (data.frame = FALSE, tibble = TRUE) 
##     get_groups: function (get_cols = FALSE) 
##     get_initial_graph: function () 
##     get_locations: function () 
##     get_mesh_locations: function (bru = FALSE, loc = NULL, normalized = TRUE) 
##     get_PtE: function () 
##     get_vertices_incomp_dir: function () 
##     initialize: function (edges = NULL, V = NULL, E = NULL, vertex_unit = NULL, 
##     is_tree: function () 
##     Laplacian: NULL
##     mesh: list
##     mesh_A: function (PtE) 
##     mutate: function (..., .drop_na = FALSE, .drop_all_na = TRUE) 
##     nE: 11104
##     nV: 8781
##     observation_to_vertex: function (tolerance = 1e-15, mesh_warning = TRUE) 
##     plot: function (data = NULL, newdata = NULL, group = 1, plotly = FALSE, 
##     plot_connections: function () 
##     plot_function: function (data = NULL, newdata = NULL, group = 1, X = NULL, plotly = FALSE, 
##     plot_movie: function (X, plotly = TRUE, vertex_size = 5, vertex_color = "black", 
##     print: function () 
##     process_data: function (data = NULL, edge_number = "edge_number", distance_on_edge = "distance_on_edge", 
##     prune_vertices: function (check_weights = TRUE, verbose = FALSE) 
##     PtV: NULL
##     res_dist: NULL
##     select: function (..., .drop_na = FALSE, .drop_all_na = TRUE) 
##     set_edge_weights: function (weights = rep(1, self$nE), kirchhoff_weights = NULL) 
##     summarise: function (..., .include_graph_groups = FALSE, .groups = NULL, 
##     summary: function (messages = FALSE, compute_characteristics = TRUE, check_euclidean = TRUE, 
##     V: -122.40171 -122.40078 -122.44449 -122.44331 -122.41216 - ...
##     vertices: metric_graph_vertices
##     VtEfirst: function () 
##   Private:
##     A: function (group = NULL, obs_to_vert = FALSE, drop_na = FALSE, 
##     add_vertices: function (PtE, tolerance = 1e-10, verbose) 
##     addinfo: FALSE
##     clear_initial_info: function () 
##     compute_degrees: function () 
##     compute_laplacian_PtE: function (PtE, normalized = TRUE, verbose = verbose) 
##     compute_lengths: function (longlat, unit, crs, proj4string, which_longlat, vertex_unit, 
##     connected: TRUE
##     coordinates_multiple_snaps: function (XY, tolerance, verbose = verbose, crs, proj4string, 
##     create_update_vertices: function () 
##     crs: crs
##     data: metric_graph_data, list
##     edge_weights: tbl_df, tbl, data.frame
##     find_edge_edge_points: function (tol, verbose, crs, proj4string, longlat, fact, which_longlat) 
##     find_mesh_bc: function () 
##     get_edge_weights_internal: function (data.frame = FALSE) 
##     group_col: .group
##     initial_edges_added: NULL
##     initial_graph: metric_graph, R6
##     kirchhoff_weights: NULL
##     length_unit: km
##     line_to_vertex: function (tolerance = 0, longlat = FALSE, fact, verbose, crs, 
##     longlat: TRUE
##     merge_close_vertices: function (tolerance, fact) 
##     merge.all.deg2: function () 
##     mesh_merge_deg2: function () 
##     mesh_merge_outs: function () 
##     move_V_first: function () 
##     plot_2d: function (line_width = 0.1, marker_size = 1, vertex_color = "black", 
##     plot_3d: function (line_width = 1, marker_size = 1, vertex_color = "rgb(0,0,0)", 
##     proj4string: NULL
##     prune_warning: FALSE
##     pruned: FALSE
##     PtE_to_mesh: function (PtE) 
##     ref_edges: 1 5502 2 359 3 4077 4 5117 5 7 5419 8 9 10 11 4817 4613  ...
##     remove_circles: function (threshold, verbose, longlat, unit, crs, proj4string, 
##     remove.first.deg2: function (res) 
##     set_first_weights: function (weights = rep(1, self$nE)) 
##     set_petrov_matrices: function () 
##     split_edge: function (Ei, t, tolerance = 0) 
##     temp_PtE: NULL
##     tolerance: list
##     transform: FALSE
##     vertex_unit: degrees
##     which_longlat: sf 
##   .. .. .. .. .. ..$ fem_mesh            :List of 4
##   .. .. .. .. .. .. ..$ c0:Formal class 'dgTMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. .. .. .. ..@ i       : int [1:13932] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. .. .. .. ..@ j       : int [1:13932] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. .. .. .. ..@ Dim     : int [1:2] 13932 13932
##   .. .. .. .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. .. .. ..@ x       : num [1:13932] 0.0534 0.0776 0.0408 0.0457 0.0367 ...
##   .. .. .. .. .. .. .. .. ..@ factors : list()
##   .. .. .. .. .. .. ..$ g1:Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. .. .. .. ..@ i       : int [1:44204] 0 5681 8781 11463 1 8781 11429 11463 13882 2 ...
##   .. .. .. .. .. .. .. .. ..@ p       : int [1:13933] 0 4 9 12 15 18 23 26 29 34 ...
##   .. .. .. .. .. .. .. .. ..@ Dim     : int [1:2] 13932 13932
##   .. .. .. .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. .. .. ..@ x       : num [1:44204] 210.6 -161.9 -24.4 -24.4 103.4 ...
##   .. .. .. .. .. .. .. .. ..@ factors : list()
##   .. .. .. .. .. .. ..$ g2:Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. .. .. .. ..@ i       : int [1:81554] 0 1 5399 5681 8781 11463 0 1 4450 8781 ...
##   .. .. .. .. .. .. .. .. ..@ p       : int [1:13933] 0 6 13 18 23 28 37 42 47 56 ...
##   .. .. .. .. .. .. .. .. ..@ Dim     : int [1:2] 13932 13932
##   .. .. .. .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. .. .. ..@ x       : num [1:81554] 1731368 28997 607384 -2117274 -125237 ...
##   .. .. .. .. .. .. .. .. ..@ factors : list()
##   .. .. .. .. .. .. ..$ g3:Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. .. .. .. ..@ i       : int [1:124984] 0 1 805 5399 5681 8781 11429 11463 13882 0 ...
##   .. .. .. .. .. .. .. .. ..@ p       : int [1:13933] 0 9 18 25 32 43 56 65 72 85 ...
##   .. .. .. .. .. .. .. .. ..@ Dim     : int [1:2] 13932 13932
##   .. .. .. .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. .. .. ..@ x       : num [1:124984] 1.84e+10 1.88e+08 -4.79e+08 9.57e+09 -2.57e+10 ...
##   .. .. .. .. .. .. .. .. ..@ factors : list()
##   .. .. .. .. .. ..$ parameterization    : chr "matern"
##   .. .. .. .. .. ..$ n.spde              : int 13932
##   .. .. .. .. .. ..- attr(*, "class")= chr [1:3] "rspde_metric_graph" "inla_rspde" "inla.cgeneric"
##   .. .. .. .. ..$ type          : chr "cgeneric"
##   .. .. .. .. ..$ n             : num 13932
##   .. .. .. .. ..$ values        : int [1:13932] 1 2 3 4 5 6 7 8 9 10 ...
##   .. .. .. .. ..$ season.length : NULL
##   .. .. .. .. ..$ factor_mapping: NULL
##   .. .. .. .. ..- attr(*, "class")= chr [1:2] "bru_subcomponent" "list"
##   .. .. .. ..$ group       :List of 8
##   .. .. .. .. ..$ input         :List of 4
##   .. .. .. .. .. ..$ input   : int 1
##   .. .. .. .. .. ..$ label   : chr "field.group"
##   .. .. .. .. .. ..$ layer   : NULL
##   .. .. .. .. .. ..$ selector: NULL
##   .. .. .. .. .. ..- attr(*, "class")= chr [1:2] "bru_input" "list"
##   .. .. .. .. ..$ mapper        :List of 1
##   .. .. .. .. .. ..$ n: num 1
##   .. .. .. .. .. ..- attr(*, "class")= chr [1:3] "bru_mapper_index" "bru_mapper" "list"
##   .. .. .. .. ..$ model         : chr "exchangeable"
##   .. .. .. .. ..$ type          : chr "exchangeable"
##   .. .. .. .. ..$ n             : num 1
##   .. .. .. .. ..$ values        : int 1
##   .. .. .. .. ..$ season.length : NULL
##   .. .. .. .. ..$ factor_mapping: NULL
##   .. .. .. .. ..- attr(*, "class")= chr [1:2] "bru_subcomponent" "list"
##   .. .. .. ..$ replicate   :List of 8
##   .. .. .. .. ..$ input         :List of 4
##   .. .. .. .. .. ..$ input   : language data_rspde_bru_nonstat[["repl"]]
##   .. .. .. .. .. ..$ label   : chr "field.repl"
##   .. .. .. .. .. ..$ layer   : NULL
##   .. .. .. .. .. ..$ selector: NULL
##   .. .. .. .. .. ..- attr(*, "class")= chr [1:2] "bru_input" "list"
##   .. .. .. .. ..$ mapper        :List of 4
##   .. .. .. .. .. ..$ levels        : chr [1:4] "1" "2" "3" "4"
##   .. .. .. .. .. ..$ factor_mapping: chr "full"
##   .. .. .. .. .. ..$ indexed       : logi TRUE
##   .. .. .. .. .. ..$ n             : int 4
##   .. .. .. .. .. ..- attr(*, "class")= chr [1:4] "bru_mapper_factor_index" "bru_mapper_factor" "bru_mapper" "list"
##   .. .. .. .. ..$ model         : chr "iid"
##   .. .. .. .. ..$ type          : chr "iid"
##   .. .. .. .. ..$ n             : int 4
##   .. .. .. .. ..$ values        : int [1:4] 1 2 3 4
##   .. .. .. .. ..$ season.length : NULL
##   .. .. .. .. ..$ factor_mapping: NULL
##   .. .. .. .. ..- attr(*, "class")= chr [1:2] "bru_subcomponent" "list"
##   .. .. .. ..$ weights     : NULL
##   .. .. .. ..$ copy        : NULL
##   .. .. .. ..$ marginal    : NULL
##   .. .. .. ..$ env         :<environment: R_GlobalEnv> 
##   .. .. .. ..$ env_extra   :<environment: 0x5a1a78a94ea0> 
##   .. .. .. ..$ fcall       : language "f"(field, model = BRU_field_main_model, replicate = field.repl, ngroup = 1,      nrep = 4L, values = BRU_field_values)
##   .. .. .. ..$ mapper      :List of 6
##   .. .. .. .. ..$ mappers  :List of 2
##   .. .. .. .. .. ..$ mapper:List of 9
##   .. .. .. .. .. .. ..$ mappers          :List of 3
##   .. .. .. .. .. .. .. ..$ main     :List of 1
##   .. .. .. .. .. .. .. .. ..$ model:List of 21
##   .. .. .. .. .. .. .. .. .. ..$ f                   :List of 3
##   .. .. .. .. .. .. .. .. .. .. ..$ model   : chr "cgeneric"
##   .. .. .. .. .. .. .. .. .. .. ..$ n       : int 13932
##   .. .. .. .. .. .. .. .. .. .. ..$ cgeneric:List of 5
##   .. .. .. .. .. .. .. .. .. .. .. ..$ model: chr "inla_cgeneric_rspde_nonstat_int_model"
##   .. .. .. .. .. .. .. .. .. .. .. ..$ shlib: chr "/home/rierasl/R/x86_64-pc-linux-gnu-library/4.4/INLA/bin/linux/64bit/external/rSPDE/librSPDE.so"
##   .. .. .. .. .. .. .. .. .. .. .. ..$ n    : int 13932
##   .. .. .. .. .. .. .. .. .. .. .. ..$ debug: logi FALSE
##   .. .. .. .. .. .. .. .. .. .. .. ..$ data :List of 5
##   .. .. .. .. .. .. .. .. .. .. .. .. ..$ ints      :List of 5
##   .. .. .. .. .. .. .. .. .. .. .. .. .. ..$ n          : int 13932
##   .. .. .. .. .. .. .. .. .. .. .. .. .. ..$ debug      : int 0
##   .. .. .. .. .. .. .. .. .. .. .. .. .. ..$ graph_opt_i: int [1:29068] 0 0 0 0 1 1 1 1 1 2 ...
##   .. .. .. .. .. .. .. .. .. .. .. .. .. ..$ graph_opt_j: int [1:29068] 0 5681 8781 11463 1 8781 11429 11463 13882 2 ...
##   .. .. .. .. .. .. .. .. .. .. .. .. .. ..$ alpha      : int 1
##   .. .. .. .. .. .. .. .. .. .. .. .. ..$ doubles   :List of 2
##   .. .. .. .. .. .. .. .. .. .. .. .. .. ..$ start.theta     : num [1:4] 2.86 -1.4 0 0
##   .. .. .. .. .. .. .. .. .. .. .. .. .. ..$ theta.prior.mean: num [1:4] 2.86 -1.4 0 0
##   .. .. .. .. .. .. .. .. .. .. .. .. ..$ characters:List of 3
##   .. .. .. .. .. .. .. .. .. .. .. .. .. ..$ model            : chr "inla_cgeneric_rspde_nonstat_int_model"
##   .. .. .. .. .. .. .. .. .. .. .. .. .. ..$ shlib            : chr "/home/rierasl/R/x86_64-pc-linux-gnu-library/4.4/INLA/bin/linux/64bit/external/rSPDE/librSPDE.so"
##   .. .. .. .. .. .. .. .. .. .. .. .. .. ..$ prior.theta.param: chr "theta"
##   .. .. .. .. .. .. .. .. .. .. .. .. ..$ matrices  :List of 3
##   .. .. .. .. .. .. .. .. .. .. .. .. .. ..$ B_tau           : num [1:69662] 13932 5 -0.693 -1 0.5 ...
##   .. .. .. .. .. .. .. .. .. .. .. .. .. ..$ B_kappa         : num [1:69662] 13932 5 0.693 0 -1 ...
##   .. .. .. .. .. .. .. .. .. .. .. .. .. ..$ theta.prior.prec: num [1:18] 4 4 0.1 0 0 0 0 0.1 0 0 ...
##   .. .. .. .. .. .. .. .. .. .. .. .. ..$ smatrices :List of 2
##   .. .. .. .. .. .. .. .. .. .. .. .. .. ..$ C: num [1:41799] 13932 13932 13932 0 1 ...
##   .. .. .. .. .. .. .. .. .. .. .. .. .. ..$ G: num [1:132615] 13932 13932 44204 0 5681 ...
##   .. .. .. .. .. .. .. .. .. .. .. ..- attr(*, "class")= chr "inla.cgeneric"
##   .. .. .. .. .. .. .. .. .. ..$ cgeneric_type       : chr "int_alpha"
##   .. .. .. .. .. .. .. .. .. ..$ nu                  : num 0.5
##   .. .. .. .. .. .. .. .. .. ..$ theta.prior.mean    : num [1:4] 2.86 -1.4 0 0
##   .. .. .. .. .. .. .. .. .. ..$ prior.nu            :List of 4
##   .. .. .. .. .. .. .. .. .. .. ..$ loglocation: num -5e-06
##   .. .. .. .. .. .. .. .. .. .. ..$ mean       : num 1
##   .. .. .. .. .. .. .. .. .. .. ..$ prec       : num 3
##   .. .. .. .. .. .. .. .. .. .. ..$ logscale   : num 1
##   .. .. .. .. .. .. .. .. .. ..$ theta.prior.prec    : num [1:4, 1:4] 0.1 0 0 0 0 0.1 0 0 0 0 ...
##   .. .. .. .. .. .. .. .. .. ..$ start.nu            : num 0.5
##   .. .. .. .. .. .. .. .. .. ..$ integer.nu          : logi TRUE
##   .. .. .. .. .. .. .. .. .. ..$ start.theta         : num [1:4] 2.86 -1.4 0 0
##   .. .. .. .. .. .. .. .. .. ..$ stationary          : logi FALSE
##   .. .. .. .. .. .. .. .. .. ..$ rspde.order         : num 2
##   .. .. .. .. .. .. .. .. .. ..$ dim                 : num 1
##   .. .. .. .. .. .. .. .. .. ..$ est_nu              : logi FALSE
##   .. .. .. .. .. .. .. .. .. ..$ nu.upper.bound      : num 2
##   .. .. .. .. .. .. .. .. .. ..$ prior.nu.dist       : chr "lognormal"
##   .. .. .. .. .. .. .. .. .. ..$ debug               : logi FALSE
##   .. .. .. .. .. .. .. .. .. ..$ type.rational.approx: chr "chebfun"
##   .. .. .. .. .. .. .. .. .. ..$ mesh                :Classes 'metric_graph', 'R6' <metric_graph>
##   Public:
##     add_mesh_observations: function (data = NULL, group = NULL) 
##     add_observations: function (data = NULL, edge_number = "edge_number", distance_on_edge = "distance_on_edge", 
##     build_mesh: function (h = NULL, n = NULL, continuous = TRUE, continuous.outs = FALSE, 
##     buildC: function (alpha = 2, edge_constraint = FALSE) 
##     buildDirectionalConstraints: function (alpha = 1) 
##     C: NULL
##     characteristics: list
##     check_distance_consistency: function () 
##     check_euclidean: function () 
##     clear_observations: function () 
##     clone: function (deep = FALSE) 
##     CoB: NULL
##     compute_characteristics: function (check_euclidean = FALSE) 
##     compute_fem: function (petrov = FALSE) 
##     compute_geodist: function (full = FALSE, obs = TRUE, group = NULL, verbose = 0) 
##     compute_geodist_mesh: function () 
##     compute_geodist_PtE: function (PtE, normalized = TRUE, include_vertices = TRUE, verbose = 0) 
##     compute_laplacian: function (full = FALSE, obs = TRUE, group = NULL, verbose = 0) 
##     compute_PtE_edges: function () 
##     compute_resdist: function (full = FALSE, obs = TRUE, group = NULL, check_euclidean = FALSE, 
##     compute_resdist_mesh: function () 
##     compute_resdist_PtE: function (PtE, normalized = TRUE, include_vertices = FALSE, check_euclidean = FALSE, 
##     coordinates: function (PtE = NULL, XY = NULL, normalized = TRUE) 
##     drop_na: function (...) 
##     E: 1 3 5 7 9 9 10 12 13 14 15 12 18 19 21 20 22 24 26 28 30 ...
##     edge_lengths: 0.0820202978316493 0.13610246403764 0.07378151878521 0.0 ...
##     edges: metric_graph_edges
##     edgeweight_to_data: function (loc = NULL, mesh = FALSE, data_loc = FALSE, weight_col = NULL, 
##     fem_basis: function (PtE) 
##     filter: function (..., .drop_na = FALSE, .drop_all_na = TRUE) 
##     geo_dist: list
##     get_data: function (group = NULL, tibble = TRUE, drop_na = FALSE, drop_all_na = TRUE) 
##     get_degrees: function (which = "degree") 
##     get_edge_lengths: function (unit = NULL) 
##     get_edge_weights: function (data.frame = FALSE, tibble = TRUE) 
##     get_groups: function (get_cols = FALSE) 
##     get_initial_graph: function () 
##     get_locations: function () 
##     get_mesh_locations: function (bru = FALSE, loc = NULL, normalized = TRUE) 
##     get_PtE: function () 
##     get_vertices_incomp_dir: function () 
##     initialize: function (edges = NULL, V = NULL, E = NULL, vertex_unit = NULL, 
##     is_tree: function () 
##     Laplacian: NULL
##     mesh: list
##     mesh_A: function (PtE) 
##     mutate: function (..., .drop_na = FALSE, .drop_all_na = TRUE) 
##     nE: 11104
##     nV: 8781
##     observation_to_vertex: function (tolerance = 1e-15, mesh_warning = TRUE) 
##     plot: function (data = NULL, newdata = NULL, group = 1, plotly = FALSE, 
##     plot_connections: function () 
##     plot_function: function (data = NULL, newdata = NULL, group = 1, X = NULL, plotly = FALSE, 
##     plot_movie: function (X, plotly = TRUE, vertex_size = 5, vertex_color = "black", 
##     print: function () 
##     process_data: function (data = NULL, edge_number = "edge_number", distance_on_edge = "distance_on_edge", 
##     prune_vertices: function (check_weights = TRUE, verbose = FALSE) 
##     PtV: NULL
##     res_dist: NULL
##     select: function (..., .drop_na = FALSE, .drop_all_na = TRUE) 
##     set_edge_weights: function (weights = rep(1, self$nE), kirchhoff_weights = NULL) 
##     summarise: function (..., .include_graph_groups = FALSE, .groups = NULL, 
##     summary: function (messages = FALSE, compute_characteristics = TRUE, check_euclidean = TRUE, 
##     V: -122.40171 -122.40078 -122.44449 -122.44331 -122.41216 - ...
##     vertices: metric_graph_vertices
##     VtEfirst: function () 
##   Private:
##     A: function (group = NULL, obs_to_vert = FALSE, drop_na = FALSE, 
##     add_vertices: function (PtE, tolerance = 1e-10, verbose) 
##     addinfo: FALSE
##     clear_initial_info: function () 
##     compute_degrees: function () 
##     compute_laplacian_PtE: function (PtE, normalized = TRUE, verbose = verbose) 
##     compute_lengths: function (longlat, unit, crs, proj4string, which_longlat, vertex_unit, 
##     connected: TRUE
##     coordinates_multiple_snaps: function (XY, tolerance, verbose = verbose, crs, proj4string, 
##     create_update_vertices: function () 
##     crs: crs
##     data: metric_graph_data, list
##     edge_weights: tbl_df, tbl, data.frame
##     find_edge_edge_points: function (tol, verbose, crs, proj4string, longlat, fact, which_longlat) 
##     find_mesh_bc: function () 
##     get_edge_weights_internal: function (data.frame = FALSE) 
##     group_col: .group
##     initial_edges_added: NULL
##     initial_graph: metric_graph, R6
##     kirchhoff_weights: NULL
##     length_unit: km
##     line_to_vertex: function (tolerance = 0, longlat = FALSE, fact, verbose, crs, 
##     longlat: TRUE
##     merge_close_vertices: function (tolerance, fact) 
##     merge.all.deg2: function () 
##     mesh_merge_deg2: function () 
##     mesh_merge_outs: function () 
##     move_V_first: function () 
##     plot_2d: function (line_width = 0.1, marker_size = 1, vertex_color = "black", 
##     plot_3d: function (line_width = 1, marker_size = 1, vertex_color = "rgb(0,0,0)", 
##     proj4string: NULL
##     prune_warning: FALSE
##     pruned: FALSE
##     PtE_to_mesh: function (PtE) 
##     ref_edges: 1 5502 2 359 3 4077 4 5117 5 7 5419 8 9 10 11 4817 4613  ...
##     remove_circles: function (threshold, verbose, longlat, unit, crs, proj4string, 
##     remove.first.deg2: function (res) 
##     set_first_weights: function (weights = rep(1, self$nE)) 
##     set_petrov_matrices: function () 
##     split_edge: function (Ei, t, tolerance = 0) 
##     temp_PtE: NULL
##     tolerance: list
##     transform: FALSE
##     vertex_unit: degrees
##     which_longlat: sf 
##   .. .. .. .. .. .. .. .. .. ..$ fem_mesh            :List of 4
##   .. .. .. .. .. .. .. .. .. .. ..$ c0:Formal class 'dgTMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. .. .. .. .. .. .. .. ..@ i       : int [1:13932] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. .. .. .. .. .. .. .. ..@ j       : int [1:13932] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. .. .. .. .. .. .. .. ..@ Dim     : int [1:2] 13932 13932
##   .. .. .. .. .. .. .. .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. .. .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. .. .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. .. .. .. .. .. .. ..@ x       : num [1:13932] 0.0534 0.0776 0.0408 0.0457 0.0367 ...
##   .. .. .. .. .. .. .. .. .. .. .. .. ..@ factors : list()
##   .. .. .. .. .. .. .. .. .. .. ..$ g1:Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. .. .. .. .. .. .. .. ..@ i       : int [1:44204] 0 5681 8781 11463 1 8781 11429 11463 13882 2 ...
##   .. .. .. .. .. .. .. .. .. .. .. .. ..@ p       : int [1:13933] 0 4 9 12 15 18 23 26 29 34 ...
##   .. .. .. .. .. .. .. .. .. .. .. .. ..@ Dim     : int [1:2] 13932 13932
##   .. .. .. .. .. .. .. .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. .. .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. .. .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. .. .. .. .. .. .. ..@ x       : num [1:44204] 210.6 -161.9 -24.4 -24.4 103.4 ...
##   .. .. .. .. .. .. .. .. .. .. .. .. ..@ factors : list()
##   .. .. .. .. .. .. .. .. .. .. ..$ g2:Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. .. .. .. .. .. .. .. ..@ i       : int [1:81554] 0 1 5399 5681 8781 11463 0 1 4450 8781 ...
##   .. .. .. .. .. .. .. .. .. .. .. .. ..@ p       : int [1:13933] 0 6 13 18 23 28 37 42 47 56 ...
##   .. .. .. .. .. .. .. .. .. .. .. .. ..@ Dim     : int [1:2] 13932 13932
##   .. .. .. .. .. .. .. .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. .. .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. .. .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. .. .. .. .. .. .. ..@ x       : num [1:81554] 1731368 28997 607384 -2117274 -125237 ...
##   .. .. .. .. .. .. .. .. .. .. .. .. ..@ factors : list()
##   .. .. .. .. .. .. .. .. .. .. ..$ g3:Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. .. .. .. .. .. .. .. ..@ i       : int [1:124984] 0 1 805 5399 5681 8781 11429 11463 13882 0 ...
##   .. .. .. .. .. .. .. .. .. .. .. .. ..@ p       : int [1:13933] 0 9 18 25 32 43 56 65 72 85 ...
##   .. .. .. .. .. .. .. .. .. .. .. .. ..@ Dim     : int [1:2] 13932 13932
##   .. .. .. .. .. .. .. .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. .. .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. .. .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. .. .. .. .. .. .. ..@ x       : num [1:124984] 1.84e+10 1.88e+08 -4.79e+08 9.57e+09 -2.57e+10 ...
##   .. .. .. .. .. .. .. .. .. .. .. .. ..@ factors : list()
##   .. .. .. .. .. .. .. .. .. ..$ parameterization    : chr "matern"
##   .. .. .. .. .. .. .. .. .. ..$ n.spde              : int 13932
##   .. .. .. .. .. .. .. .. .. ..- attr(*, "class")= chr [1:3] "rspde_metric_graph" "inla_rspde" "inla.cgeneric"
##   .. .. .. .. .. .. .. .. ..- attr(*, "class")= chr [1:3] "bru_mapper_inla_rspde" "bru_mapper" "list"
##   .. .. .. .. .. .. .. ..$ group    :List of 1
##   .. .. .. .. .. .. .. .. ..$ n: num 1
##   .. .. .. .. .. .. .. .. ..- attr(*, "class")= chr [1:3] "bru_mapper_index" "bru_mapper" "list"
##   .. .. .. .. .. .. .. ..$ replicate:List of 4
##   .. .. .. .. .. .. .. .. ..$ levels        : chr [1:4] "1" "2" "3" "4"
##   .. .. .. .. .. .. .. .. ..$ factor_mapping: chr "full"
##   .. .. .. .. .. .. .. .. ..$ indexed       : logi TRUE
##   .. .. .. .. .. .. .. .. ..$ n             : int 4
##   .. .. .. .. .. .. .. .. ..- attr(*, "class")= chr [1:4] "bru_mapper_factor_index" "bru_mapper_factor" "bru_mapper" "list"
##   .. .. .. .. .. .. ..$ n_multi          :List of 3
##   .. .. .. .. .. .. .. ..$ main     : num 13932
##   .. .. .. .. .. .. .. ..$ group    : num 1
##   .. .. .. .. .. .. .. ..$ replicate: int 4
##   .. .. .. .. .. .. ..$ n_inla_multi     :List of 3
##   .. .. .. .. .. .. .. ..$ main     : num 13932
##   .. .. .. .. .. .. .. ..$ group    : num 1
##   .. .. .. .. .. .. .. ..$ replicate: int 4
##   .. .. .. .. .. .. ..$ values_multi     :List of 3
##   .. .. .. .. .. .. .. ..$ main     : int [1:13932] 1 2 3 4 5 6 7 8 9 10 ...
##   .. .. .. .. .. .. .. ..$ group    : int 1
##   .. .. .. .. .. .. .. ..$ replicate: int [1:4] 1 2 3 4
##   .. .. .. .. .. .. ..$ values_inla_multi:List of 3
##   .. .. .. .. .. .. .. ..$ main     : int [1:13932] 1 2 3 4 5 6 7 8 9 10 ...
##   .. .. .. .. .. .. .. ..$ group    : int 1
##   .. .. .. .. .. .. .. ..$ replicate: int [1:4] 1 2 3 4
##   .. .. .. .. .. .. ..$ is_linear_multi  :List of 3
##   .. .. .. .. .. .. .. ..$ main     : logi TRUE
##   .. .. .. .. .. .. .. ..$ group    : logi TRUE
##   .. .. .. .. .. .. .. ..$ replicate: logi TRUE
##   .. .. .. .. .. .. ..$ n                : num 55728
##   .. .. .. .. .. .. ..$ n_inla           : num 55728
##   .. .. .. .. .. .. ..$ is_linear        : logi TRUE
##   .. .. .. .. .. .. ..- attr(*, "class")= chr [1:3] "bru_mapper_multi" "bru_mapper" "list"
##   .. .. .. .. .. ..$ scale : list()
##   .. .. .. .. .. .. ..- attr(*, "class")= chr [1:3] "bru_mapper_scale" "bru_mapper" "list"
##   .. .. .. .. ..$          : Named logi [1:2] TRUE TRUE
##   .. .. .. .. .. ..- attr(*, "names")= chr [1:2] "mapper" "scale"
##   .. .. .. .. ..$ is_linear: logi TRUE
##   .. .. .. .. ..$ n_multi  : Named int [1:2] 55728 NA
##   .. .. .. .. .. ..- attr(*, "names")= chr [1:2] "mapper" "scale"
##   .. .. .. .. ..$ n        : num 55728
##   .. .. .. .. ..$ names    : chr [1:2] "mapper" "scale"
##   .. .. .. .. ..- attr(*, "class")= chr [1:3] "bru_mapper_pipe" "bru_mapper" "list"
##   .. .. .. ..- attr(*, "class")= chr [1:2] "component" "list"
##   .. .. ..- attr(*, "class")= chr [1:2] "component_list" "list"
##   .. .. ..- attr(*, ".Environment")=<environment: R_GlobalEnv> 
##   .. ..$ formula:Class 'formula'  language BRU_response ~ f(Intercept, model = BRU_Intercept_main_model, ngroup = 1,      nrep = 1, values = BRU_Intercept_v| __truncated__ ...
##   .. .. .. ..- attr(*, ".Environment")=<environment: R_GlobalEnv> 
##   .. ..- attr(*, "class")= chr [1:2] "bru_model" "list"
##   ..$ lhoods         :List of 1
##   .. ..$ :List of 17
##   .. .. ..$ family        : chr "gaussian"
##   .. .. ..$ formula       :Class 'formula'  language speed ~ .
##   .. .. .. .. ..- attr(*, ".Environment")=<environment: 0x5a1a7a06f920> 
##   .. .. ..$ response_data :List of 4
##   .. .. .. ..$ BRU_response: num [1:25842] 99.8 91.7 99.8 14.5 16.1 ...
##   .. .. .. ..$ BRU_E       : num 1
##   .. .. .. ..$ BRU_Ntrials : num 1
##   .. .. .. ..$ BRU_scale   : num 1
##   .. .. ..$ data          :List of 8
##   .. .. .. ..$ speed            : num [1:25842] 99.8 91.7 99.8 14.5 16.1 ...
##   .. .. .. ..$ SpeedLimit       : num [1:25842] 4.09 4.09 4.09 -1.04 -1.04 ...
##   .. .. .. ..$ .coord_x         : num [1:25842] -122 -122 -122 -122 -122 ...
##   .. .. .. ..$ .coord_y         : num [1:25842] 37.7 37.7 37.7 37.8 37.8 ...
##   .. .. .. ..$ .edge_number     : num [1:25842] 2 2 2 3 3 3 5 6 6 6 ...
##   .. .. .. ..$ .distance_on_edge: num [1:25842] 0.195 0.227 0.363 0.309 0.583 ...
##   .. .. .. ..$ .group           : chr [1:25842] "1" "1" "1" "1" ...
##   .. .. .. ..$ loc              : num [1:25842, 1:2] 2 2 2 3 3 3 5 6 6 6 ...
##   .. .. .. ..- attr(*, "class")= chr [1:2] "metric_graph_data" "list"
##   .. .. ..$ E             : num 1
##   .. .. ..$ Ntrials       : num 1
##   .. .. ..$ weights       : num 1
##   .. .. ..$ scale         : num 1
##   .. .. ..$ samplers      : NULL
##   .. .. ..$ linear        : logi TRUE
##   .. .. ..$ expr          : NULL
##   .. .. ..$ response      : chr "BRU_response"
##   .. .. ..$ inla.family   : chr "gaussian"
##   .. .. ..$ domain        : NULL
##   .. .. ..$ used          :List of 2
##   .. .. .. ..$ effect: chr [1:3] "Intercept" "SpeedLimit" "field"
##   .. .. .. ..$ latent: chr(0) 
##   .. .. .. ..- attr(*, "class")= chr "bru_used"
##   .. .. ..$ allow_combine : logi TRUE
##   .. .. ..$ control.family: NULL
##   .. .. ..- attr(*, "class")= chr [1:2] "bru_like" "list"
##   .. ..- attr(*, "class")= chr [1:2] "bru_like_list" "list"
##   ..$ options        :List of 14
##   .. ..$ bru_verbose      : num 0
##   .. ..$ bru_verbose_store: num Inf
##   .. ..$ bru_max_iter     : num 1
##   .. ..$ bru_run          : logi TRUE
##   .. ..$ bru_int_args     :List of 3
##   .. .. ..$ method: chr "stable"
##   .. .. ..$ nsub1 : num 30
##   .. .. ..$ nsub2 : num 9
##   .. ..$ bru_method       :List of 6
##   .. .. ..$ taylor         : chr "pandemic"
##   .. .. ..$ search         : chr "all"
##   .. .. ..$ factor         : num 1.62
##   .. .. ..$ rel_tol        : num 0.1
##   .. .. ..$ max_step       : num 2
##   .. .. ..$ line_opt_method: chr "onestep"
##   .. ..$ bru_compress_cp  : logi TRUE
##   .. ..$ bru_debug        : logi FALSE
##   .. ..$ E                : num 1
##   .. ..$ Ntrials          : num 1
##   .. ..$ control.compute  :List of 3
##   .. .. ..$ config: logi TRUE
##   .. .. ..$ dic   : logi TRUE
##   .. .. ..$ waic  : logi TRUE
##   .. ..$ control.inla     :List of 1
##   .. .. ..$ int.strategy: chr "auto"
##   .. ..$ control.fixed    :List of 1
##   .. .. ..$ expand.factor.strategy: chr "inla"
##   .. ..$ verbose          : logi FALSE
##   .. ..- attr(*, "class")= chr [1:2] "bru_options" "list"
##   ..$ inlabru_version: Named chr "2.10.1.9007"
##   .. ..- attr(*, "names")= chr "version"
##   ..$ INLA_version   : Named chr "24.05.18-2"
##   .. ..- attr(*, "names")= chr "version"
##   ..- attr(*, "class")= chr [1:2] "bru_info" "list"
##  - attr(*, "class")= chr [1:3] "bru" "iinla" "inla"
nonstat.time.fin <- Sys.time()
print(nonstat.time.fin - nonstat.time.ini)
## Time difference of 3.174032 mins
summary(rspde_fit_nonstat)
## inlabru version: 2.10.1.9007
## INLA version: 24.05.18-2
## Components:
## Intercept: main = linear(1), group = exchangeable(1L), replicate = iid(1L)
## SpeedLimit: main = linear(SpeedLimit), group = exchangeable(1L), replicate = iid(1L)
## field: main = cgeneric(loc), group = exchangeable(1L), replicate = iid(data_rspde_bru_nonstat[["repl"]])
## Likelihoods:
##   Family: 'gaussian'
##     Data class: 'metric_graph_data', 'list'
##     Predictor: speed ~ .
## Time used:
##     Pre = 0.738, Running = 63.6, Post = 3.23, Total = 67.6 
## Fixed effects:
##              mean    sd 0.025quant 0.5quant 0.975quant   mode kld
## Intercept  29.582 0.286     29.029   29.578     30.153 29.578   0
## SpeedLimit  6.809 0.233      6.344    6.813      7.257  6.813   0
## 
## Random effects:
##   Name     Model
##     field CGeneric
## 
## Model hyperparameters:
##                                           mean    sd 0.025quant 0.5quant
## Precision for the Gaussian observations  0.009 0.000      0.009    0.009
## Theta1 for field                         2.867 0.018      2.833    2.866
## Theta2 for field                        -1.398 0.082     -1.555   -1.399
## Theta3 for field                         0.055 0.041     -0.018    0.053
## Theta4 for field                         0.095 0.101     -0.083    0.089
##                                         0.975quant   mode
## Precision for the Gaussian observations      0.009  0.009
## Theta1 for field                             2.903  2.865
## Theta2 for field                            -1.232 -1.405
## Theta3 for field                             0.143  0.041
## Theta4 for field                             0.312  0.060
## 
## Deviance Information Criterion (DIC) ...............: 202521.73
## Deviance Information Criterion (DIC, saturated) ....: 32623.51
## Effective number of parameters .....................: 6806.23
## 
## Watanabe-Akaike information criterion (WAIC) ...: 202891.62
## Effective number of parameters .................: 5837.83
## 
## Marginal log-Likelihood:  -104440.18 
##  is computed 
## Posterior summaries for the linear predictor and the fitted values are computed
## (Posterior marginals needs also 'control.compute=list(return.marginals.predictor=TRUE)')
summary(rspde.result(rspde_fit_nonstat, "field", rspde_model_nonstat))
##                     mean        sd 0.025quant   0.5quant 0.975quant       mode
## Theta1.matern  2.8667500 0.0178206  2.8325500  2.8664500   2.902710  2.8651700
## Theta2.matern -1.3978000 0.0820471 -1.5550800 -1.3992100  -1.232080 -1.4053400
## Theta3.matern  0.0551878 0.0410427 -0.0175815  0.0528372   0.142997  0.0412737
## Theta4.matern  0.0954716 0.1011290 -0.0829522  0.0894563   0.312465  0.0597980
rspde_fit_nonstat <-bru_rerun(rspde_fit_nonstat)
summary(rspde_fit_nonstat)
## inlabru version: 2.10.1.9007
## INLA version: 24.05.18-2
## Components:
## Intercept: main = linear(1), group = exchangeable(1L), replicate = iid(1L)
## SpeedLimit: main = linear(SpeedLimit), group = exchangeable(1L), replicate = iid(1L)
## field: main = cgeneric(loc), group = exchangeable(1L), replicate = iid(data_rspde_bru_nonstat[["repl"]])
## Likelihoods:
##   Family: 'gaussian'
##     Data class: 'metric_graph_data', 'list'
##     Predictor: speed ~ .
## Time used:
##     Pre = 1.09, Running = 57.6, Post = 3.29, Total = 62 
## Fixed effects:
##              mean    sd 0.025quant 0.5quant 0.975quant   mode kld
## Intercept  29.584 0.287     29.031   29.581     30.156 29.581   0
## SpeedLimit  6.805 0.234      6.343    6.807      7.258  6.807   0
## 
## Random effects:
##   Name     Model
##     field CGeneric
## 
## Model hyperparameters:
##                                           mean    sd 0.025quant 0.5quant
## Precision for the Gaussian observations  0.009 0.000      0.009    0.009
## Theta1 for field                         2.867 0.018      2.832    2.866
## Theta2 for field                        -1.400 0.084     -1.562   -1.401
## Theta3 for field                         0.056 0.043     -0.019    0.054
## Theta4 for field                         0.099 0.105     -0.087    0.092
##                                         0.975quant   mode
## Precision for the Gaussian observations      0.009  0.009
## Theta1 for field                             2.903  2.865
## Theta2 for field                            -1.230 -1.405
## Theta3 for field                             0.148  0.041
## Theta4 for field                             0.325  0.060
## 
## Deviance Information Criterion (DIC) ...............: 202521.97
## Deviance Information Criterion (DIC, saturated) ....: 32622.89
## Effective number of parameters .....................: 6806.92
## 
## Watanabe-Akaike information criterion (WAIC) ...: 202891.05
## Effective number of parameters .................: 5837.62
## 
## Marginal log-Likelihood:  -104440.11 
##  is computed 
## Posterior summaries for the linear predictor and the fitted values are computed
## (Posterior marginals needs also 'control.compute=list(return.marginals.predictor=TRUE)')
summary(rspde.result(rspde_fit_nonstat, "field", rspde_model_nonstat))
##                     mean        sd 0.025quant   0.5quant 0.975quant       mode
## Theta1.matern  2.8665600 0.0179907  2.8318700  2.8663100   2.902700  2.8652500
## Theta2.matern -1.3996000 0.0843757 -1.5624000 -1.4007100  -1.230200 -1.4054800
## Theta3.matern  0.0563327 0.0426680 -0.0189786  0.0538034   0.147864  0.0413306
## Theta4.matern  0.0985060 0.1053260 -0.0865005  0.0920336   0.325093  0.0600767

1.3 Crossvalidation 1

#load(here("Models_output/distmatrixfixed.RData"))

points = data %>%
  as.data.frame() %>%
  st_as_sf(coords = c(".coord_x", ".coord_y"), crs = 4326) %>%
  mutate(., index = 1:nrow(.)) %>% 
  st_drop_geometry() %>%
  dplyr:::select(speed, .group, index) %>%
  mutate(.group = as.numeric(.group)) %>%
  group_by(.group) %>%
  mutate(indexingroup = seq_len(n())) %>%
  ungroup()

distance = seq(from = 0, to = 200, by = 20)/1000

The code of chunk below was executed only one time.


{r}
load(here("Models_output/distmatrixfixed_19May24.RData"))

points = data %>%
  as.data.frame() %>%
  st_as_sf(coords = c(".coord_x", ".coord_y"), crs = 4326) %>%
  mutate(., index = 1:nrow(.)) %>% 
  st_drop_geometry() %>%
  dplyr:::select(speed, .group, index) %>%
  mutate(.group = as.numeric(.group)) %>%
  group_by(.group) %>%
  mutate(indexingroup = seq_len(n())) %>%
  ungroup()

distance = seq(from = 0, to = 200, by = 20)/1000

GROUPS <- list()
for (j in 1:length(distance)) {
  print(j)
  GROUPS[[j]] = list()
  for (i in 1:nrow(points)) {
    rowi = points[i, ]
    GROUPS[[j]][[i]] <- which(as.vector(distmatrixlist[[rowi$.group]][rowi$indexingroup,]) <= distance[j])
  }
}
save(GROUPS, file = here("Models_output/GROUPS_19May24.RData"))

The code of chunk above was executed only one time.


load(here("Models_output/GROUPS_19May24_corrected.RData"))
mse.stat <- mse.nonstat <- ls.stat <- ls.nonstat <- rep(0,length(distance))
# cross-validation for-loop
for (j in 1:length(distance)) {
  print(j)
  # cross-validation of the stationary model
  cv.stat <- inla.group.cv(rspde_fit_stat, groups = GROUPS[[j]])
  # cross-validation of the nonstationary model
  cv.nonstat <- inla.group.cv(rspde_fit_nonstat, groups = GROUPS[[j]])
  # obtain MSE and LS
  mse.stat[j] <- mean((cv.stat$mean - points$speed)^2)
  mse.nonstat[j] <- mean((cv.nonstat$mean - points$speed)^2)
  ls.stat[j] <- mean(log(cv.stat$cv))
  ls.nonstat[j] <- mean(log(cv.nonstat$cv))
}
## [1] 1
## [1] 2
## [1] 3
## [1] 4
## [1] 5
## [1] 6
## [1] 7
## [1] 8
## [1] 9
## [1] 10
## [1] 11

## plot results
par(mfrow = c(2,2), family = "Palatino")

# Plot MSE
plot(distance, mse.stat, main = "MSE", ylim = c(min(mse.nonstat, mse.stat), max(mse.nonstat, mse.stat)),
     type = "l", ylab = "MSE", xlab = "distance in m", col = "black")
lines(distance, mse.nonstat, col = "blue")
legend("bottomright", legend = c("Stationary", "Non-stationary"), col = c("black", "blue"), lty = 1)

# Plot log-score
plot(distance, -ls.stat, main = "log-score", ylim = c(min(-ls.nonstat, -ls.stat), max(-ls.nonstat, -ls.stat)),
     type = "l", ylab = "log-score", xlab = "distance in m", col = "black")
lines(distance, -ls.nonstat, col = "blue")
legend("bottomright", legend = c("Stationary", "Non-stationary"), col = c("black", "blue"), lty = 1)

save.image(here(paste0("Models_output/", rmarkdown::metadata$title, ".RData")))